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PREFACE 



This publication is composed of four parts. Part 1 
is a description of each of the components of the 
monitor system. Sections of Part 1 are devoted to: 

System Communication areas 

System Loader 

Cold Start Programs 

Resident Monitor 

Supervisor 

Core Image Loader 

Core Load Builder 

Disk Utility Program (DUP) 

Assembler Program 

FORTRAN Compiler 

System Library 

Stand-alone Utilities 



Each description includes a discussion of the logical 
structure and functional operation of the component, 
table formats, and core storage layouts. 

Part 2 is a description of the techniques and pro- 
cedures for use by personnel involved in system 
maintenance anc^r modification during error diag- 
nosis and program analysis. 

Part 3 is the flowcharts for the monitor system 
components described in Part 1. 

Part 4 is the appendices provided to support 
Parts 1 through 3. 



CONVENTIONS OBSERVED 

The following conventions have been observed in this 
publication: 

• Numbers written in the form /XXXX are hexa- 
decimal numbers; numbers written without a 
preceding slash (/) are decimal numbers. 

• The diagrams showing the layouts of core storage 
are intended to illustrate the contents of core 
storage and their relative locations; no exact 
representation of size or proportion is intended, 

• The use of absolute addresses has been avoided 
in this manual; symbolic addresses have; been 
used instead. The absolute equivalents to these 
addresses may be found in the listing in Appen- 
dix B. 

PREREQUISITE PUBLICATIONS 

Effective use of this publication requires that the 
reader be familiar with the followit^ publications: 

IBM 1130 Functional Characteristics (Form A26-5881) 
IBM 1130 Input/Output Units (Form A26-5890) 
IBM 1130 Assembler Language (Form C26-5927) 
IBM 1130 Subroutine Library (Form 026-5929) 

IBM' 1130 Disk Monitor System, Version 2, Program - 
ming and Operator's Guide (Form C26-3717) 
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give the programmer the ability to access the Graphic Subroutine Package 
to support the 1130/2250 system in a stand-alone environment. It also 
includes information on RPG and Disk Data File Conversion Program (DFCNV) 
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SECTION 1. INTRODUCTION 



The 1130 Disk Monitor System, Version 2, consists 
of the following components: 



Communication Areas 

This component consists of the in-core communica- 
tion area (COMMA) and the disk-resident communica- 
tion area (DCOM). 

Generally speaking, COMMA contains only those 
parameters required by the monitor system to fetch 
a program stored on disk in disk core image format 
(DCI). 

DCOM contains all the parameters required by 
the monitor system that are not found in COMMA. 



System Loader 

This component provides the means for loading all, 
or reloading a part of, the monitor system onto disk. 
In other words, the System Loader generates the 
monitor system on disk. 



Cold Start Programs 



This component consists of the Cold Start Loader and 
the Cold Start Program, 

The Cold Start Loader is the bootstrap loader used 
in the IPL procedure to initiate the operation of the 
Cold Start Program. 

The Cold Start Program reads the monitor system, 
i.e. , the Resident Monitor, into core storage and 
transfers control to it. 



CALL LINK, and CALL EXIT statements, and 
various I/O traps. 

One of the three disk I/O subroutines is present 
in the Resident Monitor at all times. The disk I/O 
subroutine in the Resident Monitor is the only such 
subroutine in core storage at any one time. Any of 
the three disk I/O subroutines can be used by the 
user. The DISKZ subroutine is used by the 
monitor system programs; DISKZ is initially loaded 
when a cold start is performed. 



Supervisor 

This component consists of the Monitor Control 
Record Analyzer (MORA), the Supervisor Control 
Record Analyzer, the Auxiliary Supervisor, and 
the System Core Dump program. 

The MORA is the program that reads and analyzes 
the monitor control records, initiating the actions 
indicated on those control records. 

The Supervisor Control Record Analyzer is the 
program that reads and analyzes the Supervisor 
control records, passing the information on these 
control records to the Core Load Builder, 

The Auxiliary Supervisor is the program called 
to perform specialized supervisory functions for the 
monitor system. 

The System Core Dump program is the program 
used to print all or selected portions of the contents 
of core storage on the principal print device. The 
dump can be dynamic (execution of the calling core 
load is resumed after the completion of the dump) or 
terminal (a CALL EXIT is executed after the com- 
pletion of the dump). 



Resident Monitor 

This component consists of three intermixed parts: 
(1) COMMA, (2) the Skeleton Supervisor, and (3) 
one of the three disk I/O subroutines — DISKZ, 
DISKl, or DISKN. 

COMMA is defined above, under Communication 
Areas, 

The Skeleton Supervisor consists of the core- 
resident coding necessary to process CALL DUMP, 



Core Image Loader 

This component consists of two parts, the first being 
an intermediate supervisor for the monitor system, 
the second being a loader for user and system pro- 
grams in core image format. 

Phase 1 of the Core Image Loader is fetched into 
core storage as the result of an entry to the 
Skeleton Supervisor. Phase 1 is the program that 
determines the type of entry made and the program(s) 
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to be fetched as a result. 

Phase 2 of the Core Image Loader Is the program 
that fetches into core storage and, if indicated, 
transfers control to the program( s) indicated by 
phase 1. 



Core Load Builder 



This component is the program that converts a main- 
line program from disk system format (DSF) to a core 
load, a program in disk core image format (DCI); 
that is, the Core Load Builder relocates the mainline 
program and all the subroutines required and con- 
structs the other necessary parts of the core load, 
e.g., the transfer vector, LOCALS, and SOCALs. 

Disk Utility Program (PUP) 

This component provides the means for performing 
the following functions, largely through the use of 
control records only: 

• Make available the contents of disk storage in 
punched or printed format — DUMP, 
DUMPDATA. 

• Print a map of the contents of the variable por- 
tions of disk storage — DUMP LET, 
DUMPFLET, 

• Store information on the disk in disk system 
format (DSF), disk data format (DDF), or disk 
core image format (DCI) — STORE , 
STOREDATA, STOREDATACI, STORECI, 
STORE MOD. 

• Remove information from the User/Fixed Area — 
DELETE. 

• Alter the allocation of the Fixed Area on the disk 
or delete the Assembler Program and/or the 
FORTRAN Compiler from the monitor system — 
DEFINE. 

• Initialize the Working Storage area on disk — 
DWADR. 

• Provide file protection for the contents of disk 
storage. 



FORTRAN Compiler 

This component is the program that translates the 
statements of a source program written in the IBM 
1130 Basic FORTRAN IV Language into a program in 
disk system format (DSF). 



RPG Compiler 



This component is the program that translates 
specifications written in RPG language into a pro- 
gram in disk system format (DSF). 1130 RPG 
logic is described in the publication, IBM 1130 RPG 
Program Logic Manual . Form Y21-0010. 



System Library 

This component consists of (1) a complete library 
of input/output (except disk I/O), data conversion, 
arithmetic, and function subroutines, (2) selective 
dump subroutines, and (3) special programs for disk 
maintenance. 



System Device Subroutines 

This component consists of a library of special 
subroutines, one for each device (except the disk) 
used by the monitor system programs. These sub- 
routines and DISKZ are the only device subroutines 
used by the monitor system programs. 



Utilities 

This component consists of the following stand-alone, 
self-loading utility programs: 



Assembler Program 

This component is the program that translates the 
statements of a source program written in the IBM 
1130 Assembler Language Into a program in disk 
system format (DSF). 



• The Disk Cartridge Initialization Program (DCIP) 

• The Core-Dump-to-Printer Program 

In general the organization of and flow of control 
through the 1130 Disk Monitor System, Version 2, 
is shown in Flowchart DMSOl. 
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THE IN-CORE COMMUNICATIONS AREA (COMMA) 

COMMA includes, for the most part, only those 
system parameters that are required to link from one 
core load to another that is stored on disk in disk 
core image format (DCI). The exceptions are those 
parameters that would create awkward communica- 
tion between monitor system programs if they 
resided in DOOM, 

COMMA is not a single block of locations in the 
Resident Monitor; the system parameters that con- 
stitute COMMA are intermixed with the various parts 
of the Skeleton Supervisor. 

Table 1 is a description of COMMA by parameter. 
The entries are arranged in alphabetic sequence for 
easy reference. See the listing of the Resident 
Monitor in Appendix B. Listings for the absolute 
addresses associated with the parameters in this 
table. 



THE DISK-RESIDENT COMMUNICATIONS AREA 
(DOOM) 

DOOM contains those parameters that must be passed 
from one monitor system program to another but are 
not found in COMMA. 

Table 2 is a description of DOOM by parameter. 
The entries are arranged in alphabetic sequence for 
easy reference. See the listing of DOOM in Appendix 
B. Listings for the relative addresses associated 
with the parameters in this table. 



DRIVE- AND CARTRIDGE -DEPENDENT 
PARAMETERS 

Whenever a parameter that is associated with a disk 
cartridge is required for system use during a job, 
a table of five such parameters (a quintuple), one for 
each of the five possible drives, is reserved in 
COMMA or DOOM. The first of the five parameters 
is assigned a label. Such a parameter is said to be 
a drive- or cartridge-dependent parameter, which- 
ever term is applicable. 

The position in the quintuple indicates the logical 
drive number of the drive on which the associated 
cartridge is mounted. Thus, the first parameter in 
a quintuple is associated with logical drive zero, the 
second with logical drive one, etc. The assignment 
of logical drive numbers is done during JOB process- 
ing; that is, the logical drive numbers are assigned 
in the sequence specified on the JOB monitor control 
record. Thus, the first cartridge specified is 
assigned to logical drive zero, the second to logical 
drive one, etc. If no cartridges at all are specified, 
then the current logical drive zero is defined as 
logical drive zero for the job being defined. The 
drive- and cartridge-dependent parameters for all 
vmspecified cartridges are cleared to zero, except 
for logical drive zero as noted above. 

JOB processing includes the reading of DCOM and 
the ID sector from each specified cartridge and the 
setting up of the drive- and cartridge-dependent 
quintuples in DCOM on the master cartridge. 

Initialization of the quintuples is done during cold 
start processing, which defines logical drive zero 
(and all associated drive- and cartridge-dependent 
parameters for logical drive zero) as the physical 
drive selected in the Console Entry switches (see 
Section 4. Cold Start Programs) . All other values 
in the drive- and cartridge-dependent quintuples are 
cleared to zero. 
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Table 1 . The Contents of COMMA 



LABEL 



$ACDE 
through 
$ACDE<-4 



JACEX 

and 

$ACEX+1 



KCAD 



$CH12 



$CIBA 



$CIBA-1 



$CILA 



$CLSW 



$COMN 
$CORE 



$CPTR 
$CTSW 



DESCRIPTION 



$ACDE contains the device code for the physical disk 
drive assigned as logical disk drive 0. $ACD&- 1 through 
$ACDB'4 contain the device codes for logical disk drives 
1, 2, 3/ and 4, respectively. The device code is 
contained in bits 11-15, 

$ACEX and $ACEX+1 ore the locations in which the 
contents of the accumulator and extension, respec- 
tively, are saved by the Supervisor when entered at 
the $DUMP entry point. 

$CCAD contains the address of the lowest-oddressed 
word of COMMON to be saved on the Core Image 
Buffer (CIB) by the Core Image Loader. 

$CH12 contains the address of $CPTR, $1132, or $1403 
depending upon the device defined as the principal 
print device — the Console Printer, 1132 Printer, or 
1403 Printer, respectively. 

$CIBA contains the sector address of the first sector of 
the Core Image Buffer (CIB) In use by the monitor 
system programs during the current job. The logical 
disk drive number Is contained in bits 0-3. 

$CIBA-1 contains 4095 minus the location of $CIBA. 
This value is used as the word count (In contunction 
with $CIBA, which contains the sector address of the 
CIB) in saving the first 4K of core storage following 
an entry at $DUMP. 

$CILA contains the address of the end of the disk I/O 
subroutine currently In core storage, minus 4. $CILA 
always points to the word count (followed by the 
sector address) of phase 1 of the Core Image Loader. 

$CLSW is a switch Indicating to phase 2 of the Core 
Image Looder the function It is to perform. The switch 
settings are as follows: 

Setting Meaning 

Positive Load the Indicated disk I/O 

subroutine 
Zero or Load the indicated core load 

Negative and Its required disk I/O 

subroutine. Zero Indicates 
that the core load has just 
been built by the Core Lood 
Builder; negative Indicates 
that the core load is stored 
in the User or Fixed Area in 
core Imoge format. 

$COMN contains the number of words of COMMON 
defined for the core load currently In execution. 

$CORE contains a code Indicating the number of words 
of core storage within which the monitor system pro- 
grams are to operate. The codes are as follows: 



Code 



Size of Core Storage 



/1 000 


4096 words 


/2000 


8192 words 


/4000 


16384 words 


/8000 


32768 words 



$CPTR is a dummy channel 12 indicator for the 
Console Printer. 

$CTSW is o switch indicating that a monitor control 
record has been detected by a monitor system program 
other than the Supervisor. The switch settings are as 
follows: 

Setting Meaning 

Positive Monitor control record detected 

Zero Monitor control record not detected 



LABEL 



$CWCT 



$CWCT+1 



$CXR1 



$CYLN 

through 
$CYLN+4 



$DABL 



$DADR 



$DBSY 



DESCRIPTION 



$DCDE 



$DCYL 
through 
$DCYL+I4 



$DDSW 
$DMPF 

$DREQ 



$DZ1N 



$CWCT contains the number of words of COMMON 
to be saved on the Core Image Buffer (CIB) by the 
Core image Loader. 

$CWCT+1 contains the sector address of the first sector 
of the Core Image Buffer (CIB) to be used for the saving 
of COMMON by the Core Image Loader. The logical 
disk drive number Is contained in bits 0-3. 

$CXR1 is the location In which the contents of Index 
register 1 are saved by the Skeleton Supervisor. 

$CYLN contains the sector address of sector on the 
cylinder over which the access arm on logical disk 
drive is currently positioned. $CYLI^^^1 through 
$CYLN+4 contain analogous sector addresses I'or logi- 
cal disk drives 1, 2, 3, and 4, respectively. 

$DABL contains the second word of the lOCC used 
to reset the Synchronous Communications Adapter. 
$DABL is, therefore, aligned on an odd word boundary. 
$DABL contains /5540, the bit configuration of on 
Initiate Write with modifier bit 9 on. 

$DADR contains the disk block address of the first 
sector of the program or core load to be fetched into 
core storage and executed. 

$DBSY Is a switch Indicating whether or not a disk 
I/O operation is In progress. The switch settings are 
as follovrt: 

Setting Meaning 

zero Disk I/O not in progress 

non-zero Disk I/O in progress 

$DBSY Is simultaneously used as a retry counhjr by 
DISKZond DISKl. 

$DCDE contains the number of the logical disk drive on 
which the program to be fetched by the Core Image 
Loader Is to be found. The drive number ts contained 
in bits 0-3. 

$DCYL through $DCYL+2 contain the defective cyl- 
inder addresses (the contents of words 1, 2, and 3 
of sector 0, cylinder 0) for the cartridge mounted 
on logical disk drive 0. $DCYL+3 through $DCYL+14 
contain analogous addresses for the cartridges on 
logical disk drives 1, 2, 3, and 4, respectively. 

$DDSW contains the device status word (DSW) sensed 
during the last disk I/O operation performed, 

$DMPF contains the contents of the word following 
the branch to the $DUMP entry point, i.e., the 
dump format code. 

$DREQ Is a switch indicating the disk I/O subroutine 
that has been requested. The switch settings ore as 
follows: 



Setting 

positive 
zero 

negative 



Meaning 

DI3KN 
DISKl 
DISKZ 



$DZ1N Is a switch Indicating the disk I/O sufc^routlne 
presently in core storage . The svsi tch settings are as 
follows: 



Setting 

negative 

zero 

positive 



Mean! ng 

DISKZ Is in core 
DISKl Is In core 
DISKN is in core 



'Table 1 . The Contents of COMMA (Continued) 



LABEL 



$FPAD 
through 

$FPACH4 



$GCOM 



$GRIN 

$HASH 
through 
$HASH + n 

$IBSY 



$IBT2 



$IBT4 



$10CT 



$1REQ 



$KCSW 



$LAST 



DESCRIPTION 



$FPAD contains the sector address of the first sector of 
Working Storage on the cartridge mounted on logical 
disk drive 0. The logical disk drive number is con- 
tained in bits 0-3. $FPAD+1 through $FPAD+4 contain 
analogous sector addresses for the cartridges on logical 
disk drives 1, 2, 3, and 4, respectively. 

$FPAD through $FPA[>f4 are effectively the file- 
protection addresses for the cartridges in use. These 
addresses are adjusted in non-temporary mode only. 

SGCOM contains the address of GCOM, the communica- 
tion area for the Graphic Subroutine Package (GSP). 
GCOM contains common areas, pointers, and indicators 
that are used by most of the GSP subroutines. GCOM al- 
so contains the system display program for the GSP. 

$GRIN is the Graphic Initialization program indicator. 

$HASH through $HASH + 11 are a work area used vari- 
ously by the monitor system progroms. 



$IBSY is a switch indicating whether or not on I/O 
operation involving the principal I/O device is In 
progress. The switch settings ore as follows: 

Setting Meaning 

zero Principal I/O device not busy 

non-zero Principal I/O device busy 

$IBT2 contains the address of the interrupt branch 
table (IBT) for interrupt level 2. Since the disk is the 
only device on interrupt level 2, $IBT2 contains the 
address of the Interrupt entry point in the disk I/O 
subroutine currently in core storage, 

$IBT4 contains the address of the interrupt branch table 
(IBT) for interrupt level 4 used by the program currently 
in control. 

$IOCT is the IOCS counter for I/O operations. $IOCT 
is Incremented by 1 for each I/O operation initiated. 
$IOCT is decremented by 1 for each I/O operation 
completed or terminated. $lOCT equals zero when 
all I/O operations have been completed. 

$IREQ contains the address of the subroutine servicing 
the INTERRUPT REQUEST key on the Keyboard (interrupt 
level 4), This address is supplied by the user core load 
using the INTERRUPT REQUEST key. Unless an address 
is supplied $IREQ contains the address of the SDUMP 
entry point, 

$KCSW is a switch indicating whether or not (1) the 
Keyboard has been defined as the principal input device 
and/or (2) the Console Printer has been defined as the 
principal print device. The switch settings are as 
follows: 

Settings Meaning 

negative Eitherthe Console Printer is theprinci- 

pal print device or the Keyboard is 
the principal input device, but not 
both 

zero Neither is the Console Printer the 

principal print device nor is the 
Keyboard the principal input device 

positive The Console Printer is the principal 

print device and the Keyboard is 
the principal input device 

Depending on the setting on $KCSW, the system device 
subroutine for the Keyboard/Console Printer either 
permits or inhibits the overlapping of input and output. 

$LAST is a switch indicating whether or not the last 
card has been read by the system device subroutine serv- 
icing the card input device. The switch settings are as 
follows: 



Settings 

zero 

non-zero 



Me. 



Last card has not been read 
Last card has been read 



LABEL 


DESCRIPTION 


$LKNM 

and 

$LKNM+1 


$LKNM and $LKNM+1 contain the name. In name 
code, of the program or core load to be executed next. 
$LKIs|M is aligned on an even word boundary. 


$LSAD 


$LSAD contains the absolute sector address of the first 
sector of the first LOCAL (or SOCAL if there are no 
locals) for the core load currently in core. The 
logical disk drive number is contained in bits 0-3. 


$NDUP 


$NDyP is a switch indicating whether or not DUP 
operations may be performed. The switch settings are 
as follows; 




Setting Meaning 




zero Permit DUP operations 
non-zero Inhibit DUP operations 


$NEND 


$NEND is equivalent to the address of the end of 
DISKNplus 1. 


$NXEQ 


$NXEQ is a switch indicating whether or not exe- 
cution of a user core load may be performed. The 
switch settings are as follows; 




Setting Meaning 




zero Permit core load execution 
non-zero Inhibit core load execution 


$PAUS 


SPAUS Is a switch set by every ISS that does not set 
$IOCT when initiating an I/O operation, e.g., SCATl. 
The swltcti settings are as follows: 




Setting Meaning 




zero Exit from the PAUS subroutine 
non-zero Branch back to the WAIT in the 
PAUS subroutine 


$PBSY 


$PBSY is a switch Indicating whether or not an I/O 
operation involving the principal print device is In 
progress. The switch settings are as follows; 




Setting Meaning 




zero Principal print device not busy 
non-zero Principal print device busy 


$PGCT 


$PGCT contains the number, in binary, of the page of 
the job listing currently being printed. 


$PHSE 


SPHSE contains the SLET ID number (in bits 8-15) of the 
phase of the monitor system program currently in con- 
trol, excepting the Cold Start Program and the Skeleton 
Supervisor. $PHSE always contains zero when a user 
core load Is In control. Bits 0-7 of $PHSE sometimes 
contain o subphase ID number. 


$RMSW 


$RMSW Is a switch Indicating the entry point at which 
the Skeleton Supervisor was entered and, hence, the 
type of CALL causing the Skeleton Supervisor to be 
entered. The switch settings are as follows; 




Setting Meaning 




positive Entry at $DUMP 
zero Entry at $LINK 
negative Entry at JEXIT 


$RWCZ 


$RWCZ Is a switch Indicating the type of operation last 
performed by the CARDZ subroutine. The switch settings 
are as follows: 




Setting Meaning 




zero Last operation a Read 
non-zero Last operation a Punch 


$SCAN 
through 
$SCAN+7 


$SCAN through $SCAN+7 are an area used by the 1 132 
Printer when printing a line. This area Is also used as 
a work area by the rrionitor system programs. 
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•Table 1 . The Contents of COMMA (Concluded) 



Table 2. The Contents of DCOM 



LABEL 


DESCRIPTION 


$SNLT 


$SNLT is the location used for sense light simulotlon 
by FORTRAN programs. The bits are used as follows: 




Bit Sense Light 




14 1 




13 2 
12 3 
11 4 


tSYSC 


$SYSC contains the version and modification level 
numben identifying the 1 130 Disk Monitor System, 
Bits 0-7 contain the version number; bits 8-15 con- 
tain the modification level number. 


$UFDR 


$UFDR contains the number of the logical disk drive 
on which the unformatted I/O area in use by the 
monitor system programs during the current job Is to 
be found. The drive number is contained in bits 0-3. 


$UFIO 


$UFIO contains the displacement, in sectors, from the 
start of the unformatted I/O area to the sector at 
which the writing or reading of the next logical 
record to or from the unformatted I/O orea is to begin . 


$ULET 

through 

$ULET+4 


$ULET contains the sector address of the first sector 
of LET on the cartridge mounted on logical disk drivs 
0. The logical disk drive number Is contained in 
bits 0-3. $ULET+1 through $ULET+4 contain ana- 
logous sector addresses for the cartridges on logical 
disk drives 1, 2, 3, and 4, respectively. 


$WRD1 


$WRD1 contains the address at which the first word of 
the core Image header of the core load to be/being 
executed will/does reside. 


JWSDR 


$WSDR contains the number of the logical disk drive 
on which the Working Storage In use by the monitor 
system programs during the current job is to be found. 
The drive number Is contained In bits 0-3. 


SXR3X 


$XR3X contains the setting of index register 3 for the 
core load in core. 


JZEND 


$2END is equivalent to the address of the end of 
DISKZplus 1. 


$1END 


$1END Is equivalent to the address of the end of 
DISK! plus 1. 


$1132 


$1132 Is a switch indicating whether or not channel 
12 has been detected on the 1 132 Printer. The 
switch settings are as follows: 




Setting Meaning 




zero Channel 12 not detected or a skip 

to channel 1 executed 
non-zero Channel 12 detected 


$1403 


$1403 is a switch indicating whether or not channel 
12 has been detected on the 1403 Printer. The 
switch settings are as follows: 




Setting Meaning 




zero Channel 12 not detected or a skip 

to channel 1 executed 
non-zero ChanneM2 detected 



LABEL 



#ANDU 
through 
*ANDU+4 



*BNDU 
through 
*BNDU+4 



*CBSW 



#C!AD 



#CiBA 

through 

#ClBA+4 



#CIDN 
through 
#CIDN+4 



*CSHN 
through 
#CSHN+4 



#DBCT 



#DCSW 



#ENTY 



.#ECNT 



DESCRIPTION 



*ANDU contains the displacement, in disk blocks, 
from word 0, sector 0, cylinder on the cartridge 
mounted on logical disk drive to the last disk block 
of the User Area on that cartridge, plus 1 disk block. 
*ANDU+1 through #ANDU+4 contain analogous dis- 
placements for the cartridges on logical disk drives 1, 
2, 3, and 4, respectively. 

*ANDU through *ANDU+4 are effectively the ad- 
justed addresses of the ends of the User Area! on the 
cartridges In use. These addresses are odtusted in- 
stead of ''^BNDU through "'BNDLH-4 during temporary 
mode. In parallel with *BNDU through ^BN[)U+-4 
during non-temporary mode, 

*BNDU contains the displacement, In disk blocks, 
from word 0, sector 0, cylinder on the cariridge 
mounted on logical disk drive to the last disk 
block of the User Area on that cartridge, plus 1 disk 
block. *BNDU+1 through *BNDU+4 contain ana- 
logous displacements for the cartridges on loijicol 
disk drives 1, 2, 3, and 4, respectively. 
#BNDU through ffBNDU+4 are effectively this base 
addresses of the ends of the User Areas on thu 
cartridges in use. These addresses are adjusted only 
during non-temporary mode. In parallel with '''ANDU 
through #ANDU+4. 

*CBSW Is a switch indicating to the Core Load Builder 
the type of exit to be made. The switch settings are 
as follows: 

Setting Meaning 

zero Return to Core Image Loocler 

non-zero Return to DUP 

''^CIAD contains the relative location In sector 
@IDAD (within DISKZ) where the address of the 
Core Image Loader Is to be found. 

*CIBA contains the sector address of the Core Image 
Buffer (CIB) on the cartridge mounted on logical disk 
drive 0. The logical disk drive number is contained 
In bits 0-3, #CIBA+I through #ClBA+4 contain 
analogous sector addresses for the cartridges on logical 
disk drives 1, 2, 3, and 4, respectively. 

*CIDN contains the ID (the contents of word 4, 
sector 0, cylinder 0) of the cartridge mounted on 
logical disk drive 0. #CIDN+1 through *CIDN+4 
contain the IDs of the cartridges on logical disk 
drives 1, 2, 3, and 4, respectively. 

^CSHN contains the number of sectors availcble for 
expansion of the monitor system programs on the 
system cartridge mounted on logical disk drii/e 0. 
'''^CSHN+1 through *CSHN+4 contain analogous num- 
bers for any system cartridges mounted on logical 
disk drives 1, 2, 3, and 4, respectively. 

'tDBCT contains the number of disk blocks occupied 
by the program, core load, or data file named on a 
DUP control record. 

*DCSW is a switch indicating to the ADRWS program 
the type of exit to be made. The switch settings are 
as follows: 



Settl 



ng 



Meaning 



zero Branch to $EXIT In Skeleton 

Supervisor 
non-zero Return to DUP 

*ENTY contains the address of entry point 1 In the 
program placed into system Working Storage by the 
Assembler or FORTRAN Compiler. This address is 
the address to be placed into word 12 of the DSF pro- 
gram header by DUP or the address from which word 1 
of the core image header is generated by the Core 
Load Builder. 

#ECNT contains the number of EQUAT records that 
have been processed by the Supervisor and jitored on 
the SCRA. 



•Table 2. Tne Contents of DCOM (Continued) 



LABEL 


DESCRIPTION 


*FCNT 


*FCNT contains the number of files defined for the 
core load being built or the execution to be init- 
ated. 


'FHOL 


*FHOL contains the displocoment, in disk blocks, 
from word 0, sector 0, cylinder to the first disk 
block of the largest unused (1DUMY) area in the 
Fixed Area on the cartridge to which a STOI^E oper- 
ation is to be made. 


*FLET 

through 

#FLET+4 


*FLET contains the sector address of the first sector 
of FLET on the cartridge mounted on logical disk 
drive 0. The logical disk drive number is contained 
in bits 0-3. *FLET+I through 'FLET+4 contain 
analogous sector addresses for the cartridges on 
logical disk drives 1, 2, 3, and 4, respectively. 


*FMAT 
through 
*FMAT+4 


*FMAT is a switch Indicating the format of the con- 
tents, if any, of Working Storage on the cartridge 
mounted on logical disk drive 0. 'FMAT+1 through 
*FMAT+4 ore analogous switches for Working Stor- 
age on logical disk drives 1,2,3 and 4, respectively. 
The switch settings are as follows: 




Setting Meaning 




-2 disk core image format (DC!) 
zero disk system format (D5F) 
+ 1 disk data format (DDF) 


*FPAD 
through 
*FPAI>4 


'FPAD contains the sector address of the first sector 
of Working Storage on the cartridge mounted on 
logical disk drive 0. The logical disk drive number 
Is contained in bits 0-3. *FPAD+1 through 
^FPAD+4 contain analogous sector addresses for the 
cartridges on logical disk drives 1, 2, 3, and 4, 
respectively. 

*FPAD through *FPAD+4 are effectively the file- 
protection addresses for the cartridges in use. These 
addresses are adjusted in non-temporary mode only. 


*FRDR 


ifpRDR contains the number of the logical disk drive 
on which the cartridge specified by the "FROM" 
cartridge ID (In columns 31-34 of the DUP control 
record) is mounted. The drive number is contained 
In bits 12-15. A negative number indicates that no 
ID was specified. 


*FSZE 


^FSZE contains the number of disk blocks contained 
In the largest unused (IDUMY) area in the Fixed Area 
on the cartridge to which a STORE operation is to be 
made. 


#GCNT 


*GCNT contains the number of G2250 subroutines to 
be defined for the core load being built or the execu- 
tion to be Initiated. 


*JBSW 


*JBSW is a switch Indicating the mode of operation 
established by the last JOB monitor control record. 
The switch settings are as follows! 




Setting Meaning 




zero temporary mode 
non-zero non-temporary mode. 


*LCNT 


*LCNT contains the number of LOCAIj specified for 
the execution to be initiated or the core load being 
built. 


*LOSW 


*LOSW Is aswitch used by CLB to Indicate the 
following. 




Setting Meaning 




zero LOCAL may not call a LOCAL 
one LOCAL may call a LOCAL 



LABEL 



*MDF1 



*MDF2 



''MPSW 



''NAME 

and 

*NAME+1 



*NCNT 



*PCID 

through 

il'PCID+4 



#PIOD 



ifpPTR 



*RP67 



*5CRA 
through 
*SCRA+4 



DESCRIPTION 



*MDF1 contains, in bits 8-15, the number of DUP 
control records to be processed by DUP when called 
by the MODIF program, '-MDF1 also contains, in 
bits 0-7, the number of errors detected by DUi" during 
the processing of the DUP control records for the 
MODIF program. 

"'MDF2 is a switch Indicating to DUP that control 
must be returned to the MODIF program. The switch 
setting are as follows: 



Setting 



Meaning 



zero Do not return to MODIF 

non-zero Return to MODIF 

*MPSW Is a switch indicating to the Core Load Builder 
whether or not a core map is to be printed for each core 
load built during the current execution. The switch 
settings are as follows: 

Setting Meaning 

zero Do not print a core map 

non-zero Print a core map 

*NAME and *NAME+1 contain the name, in name 
code, of the program, core load, or data file currently 
being processed by the Supervisor, DUP, Core Load 
Builder, or Core Image Loader. The name Is obtained 
from a control record or from a LET/T^LET search. 
"^NAME is aligned on an even word boundary. 

*NCNT contains the number of NOCALs specified for 
the execution to be Initiated or the core load being 
built. 

*PCID contains the ID (the contents of word 4, sector 
0, cylinder 0) of the cartridge mounted on physical 
disk drive 0, if that drive is "ready". *PCID+1 
through i''PCID+4 contain the IDs of the cartridges on 
physical disk drives 1, 2, 3, and 4, respectively, if 
the corresponding drives are "ready". The entries 
for "not ready" drives contain zeroes. 

'PIOD is a switch indicating the device defined as the 
principal I/O device for the system. The switch 
settings are as follows: 

Setting Principal I/O Device 

positive 2501 with 1442, any model 

zero 1442, Model 6 or 7 

negative 1 134 with 1055 

*PPTR Is a switch indicating the device defined as the 
principal print device for the system. The switch 
settings are as follows: 

Setting Principal Print Device 

positive 1403 Printer 

zero 1 132 Printer 

negative Console Printer 

*'RP67 Is switch indicating the type of card I/O 
device present on the system. The switch settings 
are as follows: 

Setting Card I/O Device 

zero 2501 with 1442, Model 5 

positive 1442, Model 6 or 7 

^SCRA contains the sector address of the first sector 
of the Supervisor Control Record Area (SCRA) on the 
cartridge mounted on logical disk drive 0. The logical 
disk drive number is contained in bits 0-3. 'SCRA+1 
through *'SCRA+4 contain analogous sector addresses 
for any system cartridges on logical disk drives 1, 2, 
3, and 4, respectively. 



J 
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Table 2 . The Contents of DCOM (Concluded) 



LABEL 



DESCRIPTION 



*UHOL 



*ULET 

through 

*ULET+4 



*USZE 



*WSCT 
through 

'WSCT+4 



"UHOL contains the displacement, in disk blocks, 
from word 0, sector 0, cylinder to the first disk 
block of the largest unused (IDUMY) area in the User 
Area on the cartridge to which a STORE operation is 
to be made . 

*ULET contains the sector address of the first sector of 
LET on the cartridge mounted on logical disk drive 0. 
The logical disk drive number is contained in bits 0-3. 
'ULET+1 through *ULET+4 contain analogous sector 
addresses for the cartridges on logical disk drives 1, 
2, 3, and 4, respectively. 

"^USZE contains the number of disk blocks contained 
in the largest unused (IDUMY) area in the User Area 
on the cartridge to which a STORE operation is to be 
made. 

*WSCT contains the number of disk blocks occupied 
by a program, core load, or data file placed into 
Working Storage on the cartridge mounted on logical 
disk drive 0. 'WSCT+I through *WSCT+4 contain 
analogous disk block counts for the contents of Work- 
ing Storage on logical disk drives 1, 2, 3, and 4, 
respectively. 



SECTIONS. SYSTEM LOADER 



FLOWCHARTS 
General: SYLOl 
Phase 1: SYL02 
Phase 2: SYL03 - SYL05 

PHASE 1 

FUNCTIONS 

Phase 1 determines which card I/O subroutine is 
required, i.e. , 1442 or 2501. If the 2501 is the card 
reader, the System 2501 Subroutine overlays the 
System 1442 Subroutine. Both subroutines are 
assembled as part of Phase 1 and are naturally 
relocatable. 

Phase 1 also reads the Console Entry switches to 
get the physical drive number (0-4) for the cartridge 
to be loaded. It sets up the PROGRAM STOP key 
interrupt trap. The Keyboard INTERRUPT REQUEST 
key is made non-effective until the monitor system 
programs have been loaded. 

Phase 1 reads the Resident Monitor and DISKZ 
object decks into core storage and initializes them 
preparatory to loading phase 2 of the System Loader 
to disk. 

Phase 1 picks up defective track data from sector 
@IDAD on the cartridge to be used to Initialize the 
disk I/O subroutine. 

Phase 1 loads phase 2 to cylinders 198 and 199 
(sectors /0630 through /063D) on disk. (These 
sector addresses are absolute; they are assembled 
as part of the phase 2 deck. ) If an initial load is 
being performed, subphase 1 is loaded to sector 
/0635 , overlaying a part of the reload processii^ 
subroutine. Subphases 2 and 3 are loaded to sectors 
/063A and /063C. 

Phase 1 stores the Resident Image on sector 
®RIAD. (DISKZ is stored on disk by phase 2. ) 

On reload operations, the SLET and Reload Table 
are tested for agreement with the checksum resid- 
ing in the last word of the Reload Table sector. If 
no checksum is present, the cartridge is assumed 
to have been loaded by a modification level System 
Loader. Consequently the first two sectors of SLET 
will be packed, and the third SLET sector cleared. 

Phase 1 processes the System Configuration 
records, saving the data obtained in the phase 1 



communications area for use by phase 2. At the 
end of the Configuration records processing, the 
accumulated data is checked for errors and consoli- 
dated for phase 2. If a CORE control record is 
present, its contents are processed and replace the 
calculated core size. 

Phase 1 processes the PHID control record(s) , 
checks for errors, and saves the data obtained for 
use by phase 2. The version and modification 
level number is taken from the first PHID control 
record and saved. 

Phase ID pairs must be in ascending order on the 
PHID record(s) with no intervening blank fields. If 
two PHID records are present, the second may con- 
tain blank fields after the last phase ID pair. 

Phase 1 fetches phase 2 from disk into core 
storage and transfers control to it at BAOOO. 



BUFFERS AND I/O AREAS 
Card Input 

AA904: an 80 -word buffer that contains card images 
in left -justified 12 bit/word format, as read by the 
1442 or 2501 card l/O subroutine. 

AA902: a 60 -word buffer that contains the 12 bit/ 
word data from buffer AA904 after it has been 
compressed to 16 bits /word. 
Paper Tape Input 

Aj an 80-word buffer for PTTC/8 records. 

B; a 60-word buffer into which binary data from 
buffer BIGCB is compressed. 

C: a 1-word buffer used for the DEL character 
test when reading binary paper tape records . 

BIGCB; a 108-word buffer for binary paper tape 
records, 108 frames, left-justified. 

Disk Input and Output 

BUFFR: a 640 -word buffer used in all disk I/O 

operations, 

BUFRl; a 320-word buffer, used only for the SLET/ 

RELOAD table checksum calculation. 

COMMUNICATION FROM PHASE 1 TO PHASE 2 

The Console Printer Subroutine (WRYTZ) and the 
System I/O Subroutine (1442 or 2501) are in a low 
core position not overlayed by Phase 2. Phase 2 is 
then able to use these subroutines. 
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Likewise , information acquired by Phase 1 that 
must be passed on to Phase 2 and error messages re- 
quired by both phases reside in a low core position 
so as not to be overlayed by Phase 2. 



PHASE 2 



At the conclusion of either an initial load or re- 
load, the SLET and Reload Tables are checksummed 
and the result stored in the last word of the Reload 
Table sector. 

Phase 2 displays appropriate error messages, as 
necessary, using the WRTYZ subroutine in core 
storage. 



FUNCTIONS, INITIAL LOAD AND RELOAD 

Phase 2 checks the phase ID number sequence for 
ascending order and completeness throughout an 
initial load, and during the addition of one or more 
programs during a reload. At other times during 
a reload, the phases present should be in ascending 
order, but omissions are allowed. 

Phase 2 performs a checksum test on all type A 
(data) records. 

Phase 2 builds the Reload Table in core storage 
as the monitor system program phases are loaded. 
Each 3 -word entry in the table consists of the ID 
number of a phase requesting SLET data, the rela- 
tive location within the requesting phase where the 
SLET data is to be stored, and the number of SLET 
items to be supplied by the System Loader, On an 
initial load, this Reload Table is written to disk in 
sector #RTBL. 

If so indicated in columns 12 through 15 of the 
Load Mode control record, phase 2 bypasses the 
programs described by phase ID pairs 2, 3, 8 and/ 
or 9 from the PHID control record(s). 

Phase 2 updates the version and modification level 
numbers in the parameter #SYSC in sector © DCOM 
of the cartridge. These numbers are taken directly 
I from the first PHID control record. No comparision 
with previous version and modification level numbers 
is made. 

Phase 2 determines from the data obtained from 
the System Configuration records which devices are 
the principal I/O and principal print devices. Phase 
2 builds five special sets of SLET entries for the 
specified devices as well as for the principal I/O and 
print device conversion subroutines. 

Phase 2 steps through the Reload Table and 
searches out every phase requesting SLET data. 
It then searches out the SLET data that is requested, 
places it in the requesting phase, and writes that 
phase back to disk. This continues until the end of 
the Reload Table (/FFFF) is reached. 

Phase 2 substitutes zeros for the SLET data re- 
quested by a phase if that phase requested a program 
described by phase ID pair 2, 3, 8 or 9 and that 
program is not present on the cartridge. For example, 
the Assembler Program (represented by phase ID pair 
3) may have been deleted or never loaded. 



FUNCTIONS, INITIAL LOAD ONLY 

Phase 1 has cleared to zero the sectors that will 
become the SLET table. The SLET entries are 
filled in as each monitor system program is stored. 

Phase 2 checks for missing phases. All phases 
specified in the PHID control record must be present, 
except when one or more programs are bypassed. 

Phase 2 keeps a record of the highest sector loaded 
so that the sector addresses for the Supervisor Control 
Record Area (SCRA), Core Image Buffer (CIB), Loca- 
tion Equivalence Table (LET), and User Area (UA) on 
disk may be correctly established. 

Phase 2 checks the data obtained from the Load 
Mode control record, and if a program is bypassed, 
no gap is left in SLET. The next program loaded 
follows immediately on the cartridge and the SLET 
entry for its first phase fills the first available 
location in SLET, 



FUNCTIONS, RELOAD ONLY 

Phase 2 verifies that the file -protection address is 
not greater than /062F, (Otherwise, phase 2 cannot 
be temporarily stored on disk. ) 

Each time a phase with a positive phase ID number 
is reloaded, the Reload Table is searched. If that 
phase ID is present, it is removed and the table 
repacked. 

Phase 2 updates the SLET entries for each phase 
as that phase is reloaded. 

Phase 2 provides for expansion of the system into 
the Cushion Area when required. If a phase g;rows 
by more than one sector, it is expanded accoidingly. 
All subsequent SLET entries are updated each, time 
an expansion occurs. A check is made to see that 
the Supervisor Control Record Area (SCRA) is not 
overlayed. 

The phase ID range of an existing program may be 
expanded at the 'upper end' to permit addition of one 
or more phases to that program. In such a case, 
the phase whose ID is one less than the first pihase to 
be added must be present so that a pointer can locate 
the position in SLET where data for the added phase 
will be inserted. SLET entries above the added 
phase will be shifted to provide 4 SLET words for 
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the new phase. System programs above the added 
phase will be shifted toward and into the cushion 
area as necessary. 

System programs may be added to the system pro- 
gram area if each such program meets the following 
requirements: 

1. It is described by a phase ID pair in the 
second PHID record. 

2. It is described by a phase ID pair whose 
lower limit is greater than any phase ID 
in SLET. 



3. 



No fixed area exists on the cartridge. 



Before the program is stored, the SCRA, CIB, LET 
and UA will be shifted so that the 'high' end adjoins 
the system loader storage area at the end of the 
cartridge. When the tjrpe '81' record is processed, 
the SCRA, CIB, LET and UA will be shifted back 
from their temporary location to new sector address- 
es determined by the length of the program(s) added. 
A new cushion area will be established. User Area 
and chain addresses in LET are updated. 

Once a program addition has started, the system 
loader reload operation is similar to an initial load. 
All phases must be present and in sequence from 
the first phase of the added program up to and 
including the last phase ID present in the second 
PHID record. The additional disk storage area re- 
quired will be equivalent to the length of the added 
program(s), plus up to 15 sectors to rebuild the 
cushion area. 

Since the System Loader resides on the last two 
cylinders during its operations, working storage 
should be at least equal to the length of the added 
program(s) plus 31 sectors before performing the 
addition. 

Phase 2 constructs an in-core Reload Table. At 
the end of the monitor system program reload, the 
data that was accumulated as one or more phases 
were reloaded is first compared with the existing 
Reload Table on disk. Entries are replaced or 
added to the Reload Table as necessary. Then the 
updated Reload Table is processed as described 
above. 



BUFFERS AND I/O AREAS 



Card Input 

I CARPI; an 80 -word buffer that contains card images 
in left -justified 12 bit/word format, as read by the 
1442 or 2501 card l/O subroutine. 



CARD2; an 80 -word buffer used in conjunction with 
buffer CARDl for double buffering capability. This 
buffer is used only by the 2501 card I/O subroutine. 

PKBFR; a 60 -word buffer into which 12 bits/word 
data is compressed from buffer CARDl when a 1442 
is used as the input device, or from buffers CARDl 
and CARD2 when a 2501 is used. 

Paper Tape Input 

B: a 60-word buffer into which binary data from 
buffer BIGCB is compressed. 

C; a 1-word buffer used for the DEL character 
test when reading binary paper tape records. 

BIGCB: a 108-word buffer for binary paper tape 
records, 108 frames, left-justified. 

Disk Input and Output 

BUFRl: a buffer that is used to gather the data that 
will become the Reload Table. Its length is variable, 
up to 320 words. The word count (never over /0140) 
may be found in location BUFRl. This buffer is 
also used in calculating the SLET/RELOAD Table 
checksum. 

BUFR2; a 320 -word buffer used in disk I/O opera- 
tions. 

BUFR3; 320 words + core above 4K buffer us^d for 
reading or writing a SLET sector. During a reload 
operation that requires expansion into the Cushion 
Area of the cartridge, a sector of SLET from BUFR3 
is saved by writing it on the first sector of the CIB. 
The CIB is not cleared afterward. 



SUBPHASES 



Subphase 1 

Subphase 1 contains the subroutines that are used 
only during an initial load. Phase 1 determines from 
the Load Mode control record the type of load being 
performed, and either overlays subphase or by- 
passes the subphase 1 portion of the phase 2 deck. 

Most of the functions of this subphase involve the 
checking of the ID number of eacn phase as it is en- 
countered. An error message is displayed when- 
ever a phase ID is encountered that is out of sequence 
or was not specified on the PHID control record. 
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t Subphase 2 

Subphase 2 contains the procedures for system 
initialization prior to the loading of the System 
Library. After the type 81 (end-of-system) record 
has been read, phase 2 fetches this subphase into 
the overlay area. 

Subphase 2 modifies the coding for the processing 
of those types of records that are no longer expected, 
so that if one of these records is encountered, an 
error message is printed. 

A SLiilT seai'ch is performed for the word count 
and sector address of the Core Image Loader to be 
stored at the end of the Disk I/O Subroutine, DISKZ, 

Subphase 2 reads DCOM into the buffer BUFR3 
and initializes or updates the following: 



Location Value Inserted 

#SYSC version and modification level from 

PHID control record 

#RP67 a positive value if a 1442, Model 6 or 

7 is present, zero otherwise 

#PIOD the value indicating the principal I/O 

device, as determined from REQ control 
records (+ = 2501/1442, 0=1442/1442, 
- =1134/1055) 

#PPTR the value indicating the principal print 

device, as determined from REQ control 
records (+=1403, 0=1132, - =Console 
Printer) 

#CIAD relative location in sector @IDAD where 

CIL word count and sector address is 
maintained 

#ANDU file-protection disk block address 

#BNDU file-protection disk block address 

#FPAD file-protection or Working Storage 

sector address 

^CIBA sector address of GIB 

#SCRA sector address of Supervisor Control 

Record Area 

#ULET sector address of LET 

#CSHN number of unused sectors between last 

system program and Supervisor Control 
Record Area. 



Subphase 2 reads the Resident Image from disk in- 
to the buffer BUFR2 and initializes or updates tlie 
following: 



Location Value Inserted 

$CH12 address of channel 12 indicator for 

the principal print device, as deter- 
mined from REQ control records, i. e. , 
$1403, $1132, or$CPTR 

$CORE core size (may be actual, or set by 

CORE control record) 

$DREQ a negative value (indicating DISKZ) 



$IREQ address of DUMP entry point ($DUMP) 

$ULET sector address of LET for logical 

drive 

$CILA address in which the word count and 

sector address of Phase 1 and the Core 
Image Loader is to be phaced ($ZEND-4) 



$DZIN a negative value (indicating DISKZ) 

$FPAD file-protection sector address for 

logical drive 

$DCYL table of defective cylinders (from, 

sector @IDAD) 

$IBT2 address of level 2 interrupt branch 

table 



On an initial load the first sector of LET is 
established and initialized with a IDUMY entry. 
Working Storage disk block address. User Area sec- 
tor address , and the number of unused words in the 
first sector of LET. All other words in LET are 
set to zero until the System Library is loaded. 
On a reload in which one or more programs are 
called, the chain addresses in LET are updated 
to reflect the new position of LET on the disk due 
to the shift to make room for the new programs (^s) . 

Subphase 2 fetches and transfers control to sub- 
phase 3. 
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Subphase 3 



CORE LAYOUT 



Subphase 3 clears the sign bits from all sector 
addresses in SLET and resets them according to the 
data obtained from the System Configuration records. 
(The sign bits are used to indicate which, if any, I/O 
devices are not present on the system. ) 

Subphase 3, on a reload operation, compares all 
entries in the Reload Table built in core storage with 
the Reload Table on disk. Phase ID numbers in the 
Reload Table on disk that match phase ID numbers in 
the Reload Table in core storage are replaced by 
those from the table in core storage. Any additional 
phase ID numbers from the table in core storage 
that are not present in the table on disk are added to 
the table on disk. At the conclusion of this update 
of the Reload Table on disk, it is completely re- 
processed by the RLTBL subroutine in phase 2. 

Subphase 3 places the word count and sector 
adress of phase 1 of the Core Image Loader, 
obtained from SLET, into DISKZ in core storage 
and into DISKZ on cylinder 0, 

If a normal reload is being performed, subphase 3 
prints "END RELOAD" to the console printer and 
branches to $EXIT. If the '81' record was followed 
by a "// XEQ MODIF" record, subphase 3 branches 
to the Auxiliary Supervisor with a minus 6 parameter 
causing a "// XEQ MODIF" record to be placed in 
the Supervisor buffer. The Supervisor then executes 
MODIF. 

On an initial load, subphase 3 branches to the 
Auxiliary Supervisor with a parameter of minus 5, 
causing a dummy DUP monitor control record to be 
placed in the Supervisor buffer and the Monitor 
Control Record Analyzer to be called via the EXIT 
entry point in the Skeleton Supervisor. The Monitor 
Control Record Analyzer then calls DUP to store 
the System Library. 



Figure 1 shows the layout of the contents of core 
storage during System Loader operation. 
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•Figure 1. Core Layout During System Loader Operation 

CARTRIDGE IDENTIFICATION SECTOR 

On an initial load, the System Loader uses the con- 
tents of the cartridge ID sector (sector @IDAD) as 
follows: 

The first three words of the sector (the defective 
cylinder table for the cartridge, initialized by the 
DCIP program) are placed into its disk I/O subroutine 



Sections. System Loader 13 



prior to performing any disk operations, and into 
locations $DCYL through $DCYL+2 in the Resident 
Image. 

The fourth word of the sector (the cartridge 
identification word, initialized by the DCIP or DISC 
program) is placed into location #CIDN in DCOM. 

The seventh word of the sector is the cartridges 
load status word. Minus 2 indicates that an initial- 
ization has been performed and an initial load only is 
permitted. Plus 2 indicates that the cartridge has 
been initial -loaded and a reload only is permitted. 

SYSTEM LOCATION EQUIVALENCE TABLE (SLE T) 

SLET occupies three adjacent sectors on the system 
cartridge. Its functions are: 

• To provide a convenient means for locating each 
monitor system program that has been stored on 
the system cartridge. 

• To indicate which are the principal I/O devices 
for the system. 

• To indicate which devices, if any, are not present 
on the system. 

When the System Loader initially stores a phase 
of a monitor system program on the disk, it makes 
a 4-word entry in SLET for that program consisting 
of: 

1. The phase identification (phase ID) number. 

2. The core loading address of the phase. This is 
the address in which the word count is to be 
stored prior to fetching the phase from the disk. 

3. The word count of the phase, not including the 
two words occupied by the word count and sector 
address used in fetching the phase from disk. 

4. The sector address of the phase. 

During an initial load, the SLET sectors are 
cleared to zero. The 4-word entries describing 
each phase are built into the table, phase by phase, 
as the monitor system programs are loaded. (A 
program or phase not included during an initial load 
cannot later be included in a reload operation unless 
the program to be reloaded meets the requirements 
described under FUNCTIONS, RELOAD ONLY. 
Otherwise a new Initial load must be performed.) 



All phase ID numbers in SLET are in ascending 
order. No duplications exist. The only jumps in 
sequence are between programs, not between phases 
within a program. 

The five 4-word entries describing the principal 
I/O devices and the corresponding conversion sub- 
routines are built by the System Loader and do not 
come directly from program decks. 

The contents of SLET can be obtained at any time 
by an execution of the DSLET program (see the 
description of DSLET under Mainline Programs 
in Section 12. System Library) . 



RELOAD TABLE 

The Reload Table occupies one sector on the system 
cartridge. It contains a 3-word entry for each phase 
that requests SLET information. Word 1 of each 
entry contains the phase ID number of the requesting 
phase. Word 2 of each entry contains the address of 
the location, relative to the beginning of the phase, 
where the SLET entries are to be inserted into the 
requesting phase. Word 3 of each entry contains the 
number of 4-word SLET entries to be inserted into 
the requesting phase. The phase ID number of the 
requesting phase itself is in 2's complement form 
to indicate to the System Loader that SLET data is 
requested by that phase. 

When completed at the end of an initial load or 
reload operation, the Reload Table consists of a 
string of 3 -word entries, as described above, except 
that the phase ID numbers have been recomplemented 
by the System Loader. At the end of the string is 
/FFFF. It may be at an odd or an even address, 
depending upon the length of the string. The Isist 
word of the Reload Table is used for the SLET and 
Reload Table checksum. At the end of an initial 
load, the phase ID numbers are In ascending order. 
After one or more reload operations the phase ID 
numbers may or may not be in ascending ordei'. 

When a DEFINE VOID ASSEMBLER or DEFINE 
VOID FORTRAN operation is performed by DUP, 
all phase ID numbers belonging to the voided pro- 
gram(s) are removed from the Reload Table. The 
remaining 3 -word entries in the Reload Table are 
packed together and terminated with /FFFF. 
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SECTION 4. COLD START PROGRAMS 



FLOWCHARTS 

Cold Start Loader: CSTOl 
Cold Start Program: CST02 

COLD START LOADER 

The Cold Start Loader is the one-card bootstrap used 
to initiate the operation of the Cold Start Program, 
which in turn initiates the operation of the monitor 
system. 

Since it is loaded by the IPL procedure, all 
instructions in the Cold Start Loader are in IPL 
format. Hence, the program must construct all 
lOCCs as well as any long instructions required 
by it. 

The first word set up after entering the program 
is the second word of the lOCC for reading the Con- 
sole Entry switches. After this is done, the number 
of the physical drive to be assigned as logical drive 
is obtained from the Console Entry switches. The 
program then checlcs to see if the number obtained 
is valid (0-4, inclusive). If it is not, the program 
comes to a WAIT from which the user may restart 
by entering a valid number and pressing the START 
key. Once a valid number has been obtained, the 
device code for the drive specified is constructed 
and saved (for use by the Cold Start Program as well 
as the Cold Start Loader). 

After setting up the second word of the lOCC for 
sensing the disk (with reset), the program senses the 
disk. All bits except the not-ready bit (bit 2) are 
masked out. If the drive is not ready, the program 
comes to the same WAIT mentioned above. 

Four long Instructions are built, and the final 
steps in the setting up of the 10 CC for seeking are 
performed. The word count of the Cold Start Pro- 
gram plus the word count of DISKZ plus 27 is stored 
in DZOOO-29, the 27 being the number of words 
reserved in sector @IDAD for parameters. 

After setting up the second word of the lOCC 
for reading the disk, the program initiates a 
seek toward the home position, one cylinder at a 
time. When the seek is complete, sector zero on 
the cylinder currently under the read/write heads 
is read from the disk. If no disk error occurs 



during this read and if the sector address is that of 
sector @IDAD, then a branch is made to $ZEND, 
which is the address of the first word of the Cold 
Start Program. 

If the sector address is not that of the Cold Start 
Program, another seek toward the home position is 
initiated. This seek-and-read process is repeated 
until the proper sector address is found. (There- 
fore, a cartridge with invalid sector addresses causes 
the program to function improperly. ) Any disk 
error results in the program coming to a WAIT with 
a /3028 in the storage address register. 



COLD START PROGRAM 

The Cold Start Program is fetched from the disk 
and given control by the Cold Start Loader. 
Using the same device code that was set up by 
the Cold Start Loader for the physical drive as- 
signed as logical drive 0, the Cold Start Program 
reads the Resident Image into its normal location in 
core storage. Once this operation is performed, 
location zero is initialized with an MDX to $DUMP+1 
and the Auxiliary Supervisor is entered with a 
parameter of minus 1, causing it to place a dummy 
JOB monitor control record into the Supervisor 
buffer and execute a CALL EXIT. 



CORE LAYOUT 

Figure 2, panel 1, shows the layout of the contents 
of core storage after the Cold Start Loader has been 
loaded and, in turn, has fetched sector @IDAD from 
logical drive into core storage. This sector is 
read into core such that the DISKZ subroutine 
resides at DZOOO, followed by the Cold Start Pro- 
gram. 

Figure 2, panel 2, shows the layout of the contents 
of core storage after the Cold Start Program has 
fetched the Resident Image from sector @RIAD 
from logical drive into core storage. The 
Resident Image, like DISKZ, is fetched in such a 
fashion that all locations occupy their permanent 
positions in core storage. 
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Figure 2 . Core Layout During Cold Start 
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SECTION 6, SUPERVISOR 



FLOWCHARTS 

Monitor Control Record Analyzer: SUP02 - SUP05 
Supervisor Control Record Analyzer: SUP06-SUP08 
Auxiliary Supervisor: SUPIO 
System Core Dump Program: SUP09 



MONITOR CONTROL RECORD ANALYZER - 
PHASE 1 



The Monitor Control Record Analyzer is the program 
that decodes monitor control records and takes the 
specified action. 

The Monitor Control Record Analyzer is entered 
via the EXIT entry point in the Skeleton Supervisor. 
This entry causes phase 1 of the Core Image Loader 
to fetch the Monitor Control Record Analyzer and 
transfer control to it. 

The Monitor Control Record Analyzer utiliztes the 
system I/O device subroutines. Three of these sub- 
routines (an input, an output, and the appropriate 
conversion subroutine) are fetched into core storage 
by the Monitor Control Record Analyzer itself, 
using SLET information provided by the System 
Loader. 

The Monitor Control Record Analyzer reads 
monitor control records from the principal input 
device into the Supervisor buffer, which occupies 
locations @SBFR through @SBFR+79 and contains a 
monitor control record in unpacked, right-justified 
EBCDIC format. 

The principal conversion subroutine checks for 
monitor control records. If the principal conversion 
subroutine detects a monitor control record during 
the execution of a monitor system program other 
than the Monitor Control Record Analyzer, $CTSW 
In COMMA Is set to a positive non-zero value, the 
monitor control record Is converted to unpacked, 
right-justified EBCDIC format, and the record is 
passed to the Monitor Control Record Analyzer in 
the locations assigned as the Supervisor buffer. 

If a JOB record is recognized Phase 2 is fetched 
and control passed to it. 

Upon detecting an ASM, FOR or RPG monitor 
control record the Monitor Control Record Analyzer 
fetches the first phase of the specified program using 
SLET information provided by the System Loader, 
and transfers control to it. 

Upon detecting a DUP monitor control record, 
the Monitor Control Record Analyzer tests $NDUP, 



the non-DUP switch, in COMMA. If $NDUP is zero, 
the Monitor Control Record Analyzer fetches and 
transfers control to the first phase of DUP. Other- 
wise, an error message is printed and the next 
control record is read for processing. 

Upon detecting a PAUS monitor control record, 
the Monitor Control Record Analyzer comes to a 
WAIT at $PRET. When the PROGRAM START key 
is pressed, the Monitor Control Record Analyzer 
reads and processes the next control record. 

Upon detecting a TYP monitor control record, 
the Monitor Control Record Analyzer replaces the 
SLET information used to fetch the principal input 
device subroutine and its associated conversion 
subroutine with the SLET information for the Key- 
board input subroutine and its associated conversion 
subroutine. These subroutines are then fetched and 
used for the reading and converting of subsequent 
input records from the Keyboard. 

Upon detecting a TEND monitor control record, 
the Monitor Control Record Analyzer replaces the 
SLET information used to fetch the principal input 
device (the Keyboard) subroutine and its associated 
conversion subroutine with the SLET information 
for the device subroutine and conversion subroutine 
used with the device normally assigned as the 
principal input device, i. e. , not the Keyboard. 
These subroutines are then fetched and used for the 
reading and converting of subsequent input records. 

Upon detecting a CPRNT monitor control record, 
the Monitor Control Record Analyzer replaces the 
SLET information used to fetch the principal print 
device subroutine with the SLET information for the 
Console Printer output subroutine. (This replace- 
ment is permanent and can be changed only by 
System Loader with a reload function. ) This sub- 
routine is then fetched and used for the printing 
of subsequent output records on the Console 
Printer. 

Upon detecting an EJECT monitor control record, 
the Monitor Control Record Analyzer ejects the page 
on the principal print device, prints the current 
page heading, and reads and processes the next 
monitor control record. 

Upon detecting an XEG monitor control record, 
the Monitor Control Record Analyzer tests $NXEQ, 
the non-execute switch, in COMMA. If $NXEQ is 
zero, the Monitor Control Record Analyzer fetches 
I and transfers control to PHASE 4 (see below). 
Otherwise, the Monitor Control Record Analyzer 
prints an error message and reads the next control 
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blank (the mainline is in Working Storage) the name 
in the SCRA is set zero. 

EQUAT Control Record Processing 

The pair(s) of subroutine names found in the EQUAT 
Control Record are converted to name code and 
stored to sector 7 of the SCRA. 



Subroutine Name 

Word Count {sign bit is set to indicate that this i 
the lost word count) 
Mainline Name 

Subroutine Name 

Subroutine Name 



Not Used 
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SUPERVISOR CONTROL RECORD AREA (SCRA) 

Sectors and 1 of the SCRA are occupied by the 
LOCAL information for the core load or execution 
currently in progress (see diagram, below). The 
first word of sector contains the word count of the 
information stored in the two LOCAL sectors. 

Sectors 2 and 3 of the SCRA are occupied by the 
NOCAL information for the core load or execution 
currently in progress (see diagram, below). The 
first word of sector 2 contains the word count of 
the information stored in the two NOCAL sectors. 

Sectors 4 and 5 of the SCRA are occupied by the 
FILES information for the core load or execution 
currently in progress (see diagram, below). The 
first word of sector 4 contains the word count of the 
information stored in the two FILES sectors. 

Sector 6 is occupied with G2250 information for 
the core load or execution currently in progress. 

The format of information in the LOCAL/NOCAL 
sectors is as follows: 



Word Count, one word specifying the number of words 
I occupied by LOCAl/NOCAL information 

I inclusive from A to B. 

I Mainline name, two words in name code format (blanks 
If no mainline name Is specified) 
Subroutine Name, two words In ndme code for- 
mat specifying a LOCAl/ 
NOCAL subroutine assoc- 
iated with the preceding 
mainline 
Subroutine Nome 
I Subroutine Name 






IWord Count, from B to the next 
I word count. 



Mainline 
Nome 



I 



Mainline and Subroutine Namei 



Sector 1 



ss- 



1_LI 



The format of information in the FILES sectors 
is as follows: 



Word Count, one word specifying the number of words in the iwo 

FILES sectors occupied by FILES information, including the 
word count. 
File Number, one word specifying in binary the number 
assigned to the file in a FORTRAN DEFINE FILE 
statement and by which the file is referenced 
File Name, two words In name code format specifying the 
name of the file as It appears In LET/FLET (zeros 
if no file name Is specified) . 
Cartridge ID, one word specifying in binary the; ID 
of the cartridge containing the preceding 
named file (zero if no cartridge ID is 
specified) . 
File Number 
File Name 

Cartridge ID 



File Number 



File Numbers and Names 
end Cartridge IDs 



Sector j 
1 I 



. File Name 



Cartridge ID 



Not Used 



'TLLLL 
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The information in the EQUAT sectors 
is as follows: 



First pair 



Last pair 



Original 
Word Subroutine 
Count Name 
=n+l ' 1 



New 

Subroutine 

Nome 



Original 
Subroutine 

Name 


New 

Subroutine 

Name 



Sector 7 j | 1 | 2 | 3 | 4 



1 "-^ I "-2 I "-' I " I 



n is equal to 4 (number of pairs) 
n must be less than or equal to 40 
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I The format of the information in the G2250 sector 
is as follows. 



previous section in the cases of sections 2 and 3. 
Locations greater than 4095 were not stored to the 
GIB and are dumped from their original locations. 



Word Count, one word specifying the number of words one 

G2250 information record occupies in the G2250 
sector, including the word count. A word count 
is included for each G2250 record. 
Mainline Nortie, two words of blanks in name code format. 
(blank if mainline program is executed from 
working storage). 
GCOM, two words in name code format specifying 
the graphic communication control block. 

Subroutine Name, two words in name code 
format . 



-T indicates 
word following 
last entry 



Subroutine Names 



Sector 
6 



SYSTEM CORE DUMP PROGRAM - PHASE 6 



If ^UMP contains no return address (i.e. , is 
zero) , the Dump program executes a CALL EXIT, 

If gDUMP contains a return address (i. e. is 
non-zero) , the Dump program restores the con- 
tents of core storage in three stages. First, the 
locations between $CIB A+1 and the beginning of the 
disk I/O subroutine are restored from the CIB. 
Second, the locations between the beginning of the 
disk I/O subroutine and the beginning of the principal 
print device subroutine are restored. Third, the 
locations between the beginning of the principal print 
device subroutine and location 4095 are restored 
from the CIB. Control is then returned to the res- 
tored core load at the location following the dump 
parameters. 



If an entry was made to the Skeleton Supervisor at 
.^UMP, the Skeleton Supervisor writes the contents 
of location $CIBA+1. through 4095 on the CIB, then 
fetches and transfers control to phase 1 of the Core 
Image Loader. If $DMPF (the dump format indica- 
tor) is zero or positive, the Core Image Loader 
fetches into core storage and transfers control to 
the System Core Dump program. 

The Dump program requires the principal print 
device subroutine. This subroutine is fetched into 
core storE^e by the Dump program itself utilizing 
SLET information provided by the System Loader. 

If dump limits are specified, these checks are 
made: 

• If both limits are zero, the lower limit is left 
zero and the upper limit is set to core size. 

• If a limit is larger than core size, the limit is 
subtracted from the core size and the difference 
is used as the limit. 

• If the lower limit is greater than the upper limit, 
a wrap-around dump is given. That is, core 
storage between the lower limit and the end of 
core storage is dumped, then core storage 
between location and the upper limit is dumped. 

The lower dump limit is checked to determine 
which, if any, sections of the CIB must be read into 
the dump buffer. If any or all of the contents of the 
CIB are to be dumped, the CIB is read into core 
storage in sections; sectors 0-3 constituting section 
1, sectors 4-7 constituting section 2, and sectors 
8-12 constituting section 3. Since the first six words 
of core storage were not stored to the CIB, the 
contents of the dump buffer are offset by six words. 
These six words are filled in from words 0-5 in the 
case of section 1 and are saved from the end of the 



AUXILIARY SUPERVISOR - PHASE 7 

If an entry was made to the Skeleton Supervisor at 
$DUMP and $DMPF (the dump format indicator) 
is negative, phase 1 of the Core Image Loader 
fetches into core storage and transfers control to 
the Auxiliary Supervisor. 

The Auxiliary Supervisor has these functions: 

, It writes dummy monitor control records in 
the Supervisor buffer for processing by the 
Monitor Control Record Analyzer. 

• It prints error messages for errors detected by 
the Core Image Loader. 

• It aborts a JOB. 

The Cold Start Program calls the Auxiliary 
Supervisor with a parameter of minus one (-1). This 
parameter causes the Auxiliary Supervisor to place 
a dummy JOB monitor control record in the Super- 
visor buffer, convert from binary to EBCDIC the 
cartridge ID of the cartridge from which the cold 
start was made and store it in the Supervisor 
Buffer, set $CTSW non-zero, and executes a CALL 
EXIT. 



The ILS04 subroutine calls the Auxiliary Super- 
visor with a parameter of minus two (-2) if an 
interrupt occurs from the Keyboard INTERRUPT 
REQUEST key and the user has not provided a servic- 
ing subroutine for that interrupt. This parameter 
causes the Auxiliary Supervisor to set $IOCT, $IBSY 
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SECTION 7. CORE IMAGE LOADER 



FLOWCHARTS 
Phase 1: CILOl 
Phase 2: CIL02 

PHASE 1 

Phase 1 of the Core Image Loader handles the three 
entries to the Skeleton Supervisor - LINK, DUMP, 
and EXIT. The Core Image Loader is assigned this 
task in order to minimize transfer time (via CALL 
LINK) from one link to another. 

Phase 1 of the Core Image Loader is naturally 
relocatable. It is read into core storage by the 
Skeleton Supervisor immediately following whichever 
disk I/O subroutine is currently in the Resident 
Monitor. (This can be done by the Skeleton Super- 
visor with minimal core requirement because the 
word count and sector address of this phase per- 
manently reside at the end of each disk I/O sub- 
routine. ) 

If the Skeleton Supervisor was entered at 
$DUMP ($RMSW is positive) , phase 1 tests 
$DUMPF, the dump format code Indicator. If 
$DMPF is negative, phase 1 fetches and transfers 
control to the Auxiliary Supervisor. If $DMPF is 
not negative, phase 1 fetches and transfers control 
to the System Core Dump program. 

If the Skeleton Supervisor was entered at $ EXIT 
($RMSW is negative), phase 1 tests $DZIN to deter- 
mine whether DISKZ is in the Resident Monitor. If 
DISKZ is in the Resident Monitor, phase 1 fetches 
and transfers control to the Monitor Control Record 
Analyzer. If DISKZ is not in the Resident Monitor, 
phase 1 fetches phase 2 of the Core Image Loader. 
Using phase 2 as a subroutine, phase I overlays 
DlSKl or DISKN with DISKZ, Phase 1 then fetches 
and transfers control to the Monitor Control Record 
Analyzer. 

If the Skeleton Supervisor was entered at $LINK 
($RMSW is zero) , phase 1 tests $COMN in COMMA 
to determine if COMMON was defined by the core 
load just terminated. If $COMN is non-zero, phase 
1 saves Low COMMON on the CIB. (Low COMMON 
is the lowest 320 words that could have been de- 
fined as COMMON by the core load just terminated, ) 
Depending on the disk I/O subroutine currently in 
the Resident Monitor, Low COMMON is defined as 
follows: 



Disk I/O Subroutine 

DISKZ 
DISKl 
DISKN 



Low COMMON 
Decimal Hexadecimal 

896 - 1215 /0380 - /04BF 
1216 - 1535 /04C0 - /05FF 
1536 - 1855 /0600 - /073F 



The area occupied by Low COMMON is used by 
phase 1 as a disk I/O buffer during the LET/FLET 
search and/or as the area into which phase 2 is 
fetched when phase 2 is to be used to fetch DISKZ . 

Once Low COMMON has been saved, or if no 
COMMON was defined by the core load just ter- 
minated, phase 1 searches LET/FLET for the name 
of the program or core load to be executed next. 
The name of t^e link has been saved in $LKNM by the 
Skeleton Supervisor. 

If the link is in disk system format (DSF), phase 
1 saves any COMMON defined below 4096 on the 
CIB. It then fetches phase 2, uses phase 2 as a 
subroutine to overlay DISKl or DISKN with DISKZ, 
fetches phase O/l of the Core Load Builder, and 
transfers control to phase 1 of the Core Load 
Builder. 

If the link is in disk core image format (DCI) , 
phase 1 fetches and transfers control to phase 2 to 
fetch the link and the required disk I/O subroutine, 
if necessary, and to transfer control to that link. 

Special Techniques. Phase 1 of the Core Image 
Loader places a disk call subroutine in COMMA at 
$HASH+8 through $HASH+19. Using this disk call 
subroutine, phase 1 is able to overlay itself when 
fetching phase 2 , the Monitor Control Record 
Analyzer, etc. 



PHASE 2 

Phase 2 of the Core Image Loader is naturally 
relocatable. It is read into core storage (by phase 
1) immediately following the end of phase 1 if it is 
to be used by phase 1 to fetch DISKZ , or (by either 
phase 1 or the Core Load Builder) following the end 
of the disk I/O subroutine currently in the Resident 
Monitor if it is to fetch and transfer controlito a 
core load. Phase 2 provides two functions: (1) 
to overlay the disk I/O subroutine currently in the 
Resident Monitor with the requested disk I/O sub- 
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Figure 7. Core Layout on Supervisor at $LINK (Link in Disk System 
Format) 



has been saved by phase 1, and the LET/FLET 
search buffer has been allocated. In panel 2, phase 
2 of the Core Image Loader has been fetched by 
phase 1; the core Image header buffer has been 
allocated by phase 2. In panel 3, the disk I/O sub- 
routine required by the program being linked to has 
been fetched into the Resident Monitor. Paiaels 
4,5, and 6 represent three different cases. In 
panel 4 the program being linked to is a DCI pro- 
gram, whereas in panels 5 and 6 it is a DSF pro- 
gram. Although the Core Load Builder is called 
into core in the DSF cases, it is not shown here 
in order to simplify the diagram. In panel 4 , the 
program being linked to has been fetched by phase 
2. In panel 5, COMMON defined by the previous 
core load below location 4096, previously saved 
on the CIB by phase 1 of the Core Image Loiader, 
as well as the program being linked to, has been 
fetched by phase 2. In panel 6, the portion of 
the program being linked to that is contained in 
the CIB (the portion below location 4096, placed 
in the CIB by the Core Load Builder) has been 
fetched by phase 2. 

DEBUGGING/ANALYSIS AIDS 

To facilitate the finding of errors in and associated 
with the Core Image Loader, NOP instructions have 
been placed at critical locations in the Core Image 
Loader; they are: CMOOO+1, CM118-5, CM180, 
LDOOO+1, GETCL, and LDlOO+8. These NOPs can 
be replaced by WAIT instructions so that core dumps 
can be taken at various stages during Core Image 
Loader execution. An analysis of the core dump(s) 
may provide enough information to locate the problem. 

Bear in mind that the Core Image Loader is 
naturally relocatable. Thus, all modifications 
made to it must be executable irrespective of core 
location. 
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Figure 8. Core Layout on Supervisor Entry at $LINK (Link in Core Image Format) 
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SECTION 8. CORE LOAD BUILDER 



FLOWCHARTS 
Phase 1 (IN): CLBOl 
Phase 2 (MC): CLB02 



The Core Load Builder builds a specified mainline 
program into an executable core load. The main- 
line program, with its required subroutines (LOCALS 
and SOCALs included), is converted from disk 
system format (DSF) to a format suitable for execu- 
tion. During the conversion, the Core Load Builder 
also builds the core image header record and the 
transfer vector. The resulting core load is suitable 
for immediate execution or for storing on the disk in 
disk core image format (DCI) for future execution. 



GENERAL COMMENTS 



Each phase of the Core Load Builder has been 
broken up into a series of relatively small, self- 
contained subroutines. After initialization (phase 1) 
control remains in the Master Control subroutine, 
which is a part of phase 2. (The labels in this sub- 
routine all start with "MC". ) In other words, the 
basic control logic is found in the Master Control 
subroutine. 

The labels assigned to constants and work areas 
within subroutines are in the range 900-999. When- 
ever noted, even-numbered labels are on even 
boundaries, and odd-numbered labels are on odd 
boundaries. Constants and work areas in RCOM 
(phase 0) are mnemonic and are arranged in four 
groups, each ordered alphabetically. Double-word 
cells are in one group, indexed cells are in a second; 
constants are in a third; and switches and work areas 
are in a fourth. The labels of switches are of the 
form "LSWx", where "x" is a number. The labels 
of constants are of the form "Kx", where "x" is 
either the number, in decimal, defined in the con- 
stant or the four hexadecimal digits defined in the 
constant. 

Patch areas are usually foxmd at the end of a phase. 
Each one is defined by a BSS followed by a DC. 



OVERLAY SCHEME AND CORE LAYOUT 

The overlays (phases) of the Core Load Builder have 
been organized to allow maximum core storage for 
the Load Table while minimizing the flip-flopping of 
phases. "Minimizing" here means that, during a 
one-pass building process (no LOCALS or SOCALs), 
the phases are executed serially from 1 through 6 
(excluding 5). During a two-pass building process 
(LOCALS and/or SOCALs required), there is some 
flip-flopping of phases 3 and 5. 

Phase is never overlaid. It contains the sub- 
routines that must never be overlaid, as well as 
work areas and constants required by more than one 
subroutine. 

Phase 1 is fetched along with phase 0. The only 
difference is that phase 2 overlays phase 1 but not, 
of course, phase 0. Phases 3, 4, 5, 6, and 12 over- 
lay the last part of phase 2. 

Phases 7-10 contain messages. They all require 
that the principal print subroutine be in the data 
buffer; these phases themselves are executed from 
the LET/FLET search buffer. 

Phase 11 prints the file map and phase 12 the core 
map . Both of these phases require that the principal 
print device subroutine be in the LET/FLET search 
buffer. Phase 11 is executed from the data buffer. 

Figure 9, panel 1 shows the layout of the contents 
of core storage after phases and 1 of the Core Load 
Builder have been fetched into core storage by phase 
1 of the Core Image Loader or the STORE function 
of DUP. 

Figure 9 , panel 2 shows the layout of the contents 
of core storage after phase 1 has fetched phase 2, 
overlaying itself. Phase 2 has allocated the areas for 
the Load Table and the disk I/O buffers. 

Figure 9, panel 3 shows the layout of the contents 
of core storage after any one of the overlay phases 
has been fetched by phase 2. 

Phase 1 includes the subroutines called by the in- 
itialization subroutine. In this way, phase 2 can over- 
lay phase 1 completely. Phase 2 includes the sub- 
routines called by the relocation subroutine, RL. The 
order of the subroutines in this phase is important. 
Those that are required only during the relocation of 
the mainline (MV, ML, CK, DC, DF, and FM) come 
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Figure 9. Core Layout During Core Load Builder Operation 



last so that they may be overlaid by phase 3, Phase 3 
includes the subroutines required to choose a sub- 
routine (as opposed to a mainline) from the Load 
Table and relocate it. Phases 4 and 6 round out the 
one-pass core load building process. Phase 4 
determines whether or not SOCALs are required, 
:and, if so, whether or not they can be employed to 
make the core load fit into core storage. It also 
processes ILSs. Phase 6 performs the miscellaneous 
jobs, such as creating the transfer vector, that can 
be done only at the end of the process of building a 
core load. Phase 5 is executed only during pass 2 
in a two-pass building process. It organizes the 
LOCALS and SOCALs for relocation, including their 
special linkages. 



DISK BUFFERS 

There are three buffers used by the Core Load 
Builder. Each is 320 words long, not coimting the 
word count and sector address, and each has a 
primary use, although it may be used tempoii-arily 
for something else. For example, the LET search 
buffer is used primarily to hold a sector of IjET/ 
FLET when searching that table. However, it con- 
tains one of the message phases (phases 7-10) 
whenever a message is printed. 

The data buffer is a buffer for the User Area. 
The program currently being incorporated iriito the 
core load is read into this buffer, one sector at a 
time. For example, after a sector of the mainline 
is read into this buffer from the User Area or 
Working Storage, the relocation of the mainline can 
begin. When this sector of the mainline has been 
relocated, another sector (if any) is fetched, and 
so on until the entire mainline is relocated. 

The main use of the CIB buffer is to contsin the 
CIB, one sector at a time. For example, if a core 
load is to occupy locations 1000 - 1639, then the first 
sector of the CIB contains the part of the coie load 
that is to occupy 1000 - 1319 and the second sector 
1320 - 1639. As the core load is built, the Location 
Assignment Counter (LAC) reflects the ultimate core 
address of the data word currently being rehjcated. 
In this example, the LAC would start at 1000, thus 
causing sector 1 of the CIB to be read into the CIB 
buffer. This first word of the core load would be 
placed in the first word of the CIB buffer and the 
LAC advanced by 1. Assuming no data bretiks, the 
LAC will eventually be incremented to 1320. Then 
the contents of the CIB buffer will be written out 
on sector 1 of the CIB, and sector 2 will replace 
sector 1 in the CIB buffer. In short, each word of 
a core load is always transferred to the CIB via the 
CIB buffer. 

The data and CIB buffers are combined into a 
single 640-word buffer for the purpose of fetching 
the LOCAL, NOCAL, FILES, and G2250 information 
from the SCRA. 



CORE IMAGE BUFFER (CIB) 

The Core Image Buffer is used by the Core I-oad 
Builder, the Core Image Loader, and the Skcileton 
Supervisor. The Core Load Builder uses it to store 
any part of the core load that is to reside (when the 
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core load is executed) below location 4096 if the size 
of core is 4K, otherwise the part of the core load 
below 5056, The first word of the mainline is stored 
in the first word of the CIB following the core image 
header, and subsequent words follow similarly. Thus, 
the mainline must be relocated first, and a subse- 
quent ORG that would set the Location Assignment 
Counter below its first value is not allowed. 

LOAD TABLE 

The Load Table is used by the Core Load Builder 
primarily to tell what subprograms to include in the 
core load as well as at what time during the process 
of core load building to include a given subprogram. 
Other uses of the table are discussed below. It 
exists only during the building of a core load. 

There is an entry in the Load Table for (1) every 
LOCAL/NOCAL entry point specified for a given 
mainline and (2) for each subprogram entry point 
referenced in a core load, via CALL or LIBF. For 
example, even though subprogram A is called five 
times, there is only one entry in the Load Table for 
A. On the other hand, if A and B are different 
entry points to the same subprogram and both are 
referenced, then there will be an entry for A and 
another for B. 

Each of the Load Table entries is four words in 
length. The first entry occupies locations 4086 - 
4089, the second 4082 - 4085, etc if core size is 
4K, otherwise locations 5046-5049, 5042-5045, etc. 
The first two words of each entry contain the name 
(in name code) of the subprogram that caused the 
entry to be made. Bit zero of the first word is set 
if the entry is that of a LOCAL, bit one is set if the 
entry is that of a CALL, Mainlines and interrupt 
level subroutines never appear in the Load Table. 

Words three and four of each entry are zero when 
the entry is first made. As the relocation of a given 
subprogram begins, word three is set with the entry 
point, i.e., the absolute, address. In this way, the 
Core Load Builder can tell by looking at its Load 
Table entry whether or not a subprogram has been 
relocated and where it has been relocated to. 

Word four is put to several uses, most of which 
involve LOCAL processing. The use of this word at 
a given time is dependent upon the pass (1 or 2) and/ 
or whether the subprogram associated with the Load 
Table entry is a LOCAL that was specified in the 
LOCAL information in the SCRA. As an explana- 
tion, suppose that A and B are entry points to the 
same subprogram, and A ( but not B) appears in 
the LOCAL information in the SCRA. Both A and 
B can be called in the core load; in such a case 
A is said to be specified and B unspecified. These 
terms are useful in the following context. 



The values stored in word four at various times 
are: (1) the class code (for anon-LOCAL), (2) the 
address of the Flipper Table entry, (3) /008 for 
every subroutine called by a LOCAL, (4) the word 
count of a LOCAL, (5) the address of the Load Table 
entry for the specified entry point for the LOCAL 
currently being relocated, and (6) the address of the 
LIBF TV that corresponds to the entry in the Load 
Table. 

Since locations 4097-5056 are reserved for the 
Load Table (core size greater than 4K) CLB has to 
read in that part of the core load prior to exit to 
CIL or DUP. 



EQUAT TABLE 



The Equat Table consists of at most ten pairs of 
names of subroutines or names of files defined in a 
DSA statement. The first name in each pair is the 
subroutine or the file to be substituted with the 
second name of each pair. This checking is done 
during relocating of a mainline or its subroutines. 
Thus no name is added to the Load Table before it 
has been checked against the Equat Table. 



LOCAL, NOCAL, FILES, and G2250 INFORMATION 

LOCAL, NOCAL, FILES, and G2250 information is 
obtained from the Supervisor Control Record Area 
(SCRA). This information is supplied by the Super- 
visor Control Record Analyzer (see Section 6; 
Supervisor ) or the STORECl function of DUP (see 
Section 9; Disk Utility Program) . For the format 
of LOCAL, NOCAL, FILES, and G2250 information 
in the SCRA , see Section 6: Supervisor or Section 9; 
Disk Utility Program. 

EQUAT information is .obtained from the SCRA. 
This information is supplied by the Supervisor 
Control Record Processing phase of the Supervisor 
(see Section 6: Supervisor) . For the format of 
EQUAT information in the SCRA, see Section 6; 
Supervisor. 



ISS TABLE 

The ISS Table is used by the Core Load Builder as it 
constructs Interrupt Branch Tables for ILSs. When 
the address to which an ISS is to be relocated be- 
comes available, that address is stored in the 
appropriate entry in the ISS Table. For example, if 
an ISS for the 1132 Printer (ISS number 6) is being 
relocated to location /lOOO, then /lOOO is stored in 



Sections. Core Load Builder 35 



constructed by the Core Load Builder and stored in 
the core image header record. When the Core 
Image Loader fetches a core load (including the core 
image header), the address of the IBT for level 4 
is stored in location $IBT4, from which it is accessed 
by ILS04. The IBT for ILS02 is a single word, 
$IBT2, which contains the address of DZ 000+4, 
regardless of the disk I/O subroutine present in the 
Resident Monitor, This address is stored in $IBT2 
by the Core Image Loader as it fetches the requested 
disk l/O subroutine. The IBTs for the remaining 
ILSs are constructed and stored in the ILSs them- 
selves by the Core Load Builder. 

After all subprograms have been relocated, the 
Core Load Builder constructs the IBTs. The IBTs 
for all ILSs except ILS02 are constructed as des- 
cribed below. Bear in mind that these ILSs are 
written with special constants stored in each IBT 
entry. These constants, which will be overlaid by 
the Core Load Builder, are as follows: The first 
eight bits of each constant represent the increment 
to be added to the loading address of the correspond- 
ing ISS to get the address of the interrupt service 
entry point; for IBM-supplied ISSs, this value is 
four, except for the "operation complete" entry point 
for the 1442 subroutines, for which the value is 
seven. The second eight bits are @ISTV plus the 
ISS number; thus, each IBM entry has an identifier 
to relate it to a specific ISS. 

The Core Load Builder fetches one word at a time 
from the IBT, i.e. , one of the special constants 
occupying the IBT locations in the ILS. The second 
eight bits of the word fetched are used to compute 
the address of the ISS Table entry for the ISS 
number indicated. If the ISS Table entry is non-zero, 
it contains the loading address of the ISS itself, 
which is then incremented by the value stored in the 
first eight bits of the word fetched. The resulting 
address, which is the address of the interrupt 
service entry point, replaces the special constant 
that supplied the two eight-bit values. If the ISS 
Table entry is zero, the special congtant is replaced 
with the address of $STOP, the PROGRAM STOP 
key trap in the Skeleton Supervisor. This process 
of replacing special constants continues tintil a zero 
is fetched from the IBT, indicating that the entire 
IBT has been processed. Except for ILS04, this 
zero is the entry point to the ILS itself. 



INCORPORATING PROGRAMS INTO THE CO RE 
LOAD 



PASS 1 

The mainline is relocated first. Any calls found 
during this relocation are compared with the Equate 
Table and if no match is found they are put in the 
Load Table. But if a match is found the original 
subroutine name is replaced with the new subroutine 
name before putting it in the Load Table. Hence 
the Load Table will contain the name of subroutines 
that will be loaded rather than the subroutines that 
are called. After the mainline has been converted, 
each subprogram represented in the Load Table is 
relocated, generally in the order found in the table 
itself. An entry is flagged as having been relocated 
by storing the address of the entry point in tb3 third 
word of the entry. Before an entry is relocated, 
the names of all the entry points to the entry being 
considered for relocation are compared with the 
name of each entry preceding it in the Load Table. 
A match indicates that the current entry is simply 
another entry point to a previously relocated sub- 
program. Thus, the current entry is not relocated; 
instead, the absolute address of the entry point is 
determined and stored in the third word of th<3 entry 
to signify that it has already been relocated. 

Furthermore, the names of all the entry points 
to the entry being considered for relocation are com- 
pared with the name in each entry in the Load Table 
following it. If a match occurs, the third words of 
both entries are filled in with the absolute address 
of the entry point. Thus, the Load Table is scanned 
forward and backward for other entry points to the 
subprogram currently being considered for re- 
location. 

PASS 2 

The Load Table is scanned during pass 2 in the same 
way as during pass 1. The only difference is that 
subprograms are relocated in a certain ordei' during 
pass 2, thus necessitating multiple passes th]:ough 
the Load Table; in fact, one pass is required for each 
class of subprograms. Thus, all the in-cores (class 
0) are relocated first, followed by LOCALs, sub- 
programs in SOCAL 1 (class 1), subroutines in 
SOCAL 2 (class 2), and subroutines in SOCAL 3 
(class 3), in that order. 
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LOCALS AND SOCALs 

If during the first pass the Core Load Builder 
(phase 4) determines that an Assembler core load 
will not fit into core storage even with any LOCALs 
that have been specified, the core load building 
process is terminated. However, for a FORTRAN 
core load special overlays (SOCALs) of parts of the 
core load will be created during a second pass if 
this will make the core load fit. The decision of 
whether to proceed with a second pass is made after 
phase 4 accovmts for the sizes of the LOCAL area, 
if any, the flipper and Its table, and each of the 
SOCALs. If the check shows that SOCAL option 1 
(SOCAL 1 and SOCAL 2) will be insufficient, then 
a further check is made for option 2 (all three 
SOCALs). If option 2 is still insufficient, process- 
ing is terminated; otherwise, a second pass is made. 

During pass 2, the entire core load is built 
again, but, unlike during pass 1, subprograms are 
relocated in a special order. First, the mainline 
and the in-core (class 0) subprograms are relocated, 
followed by: the flipper; the LOCALs, if any; the 
arithmetic and function (class 1) subprograms; the 
non-disk FIO (class 2) subroutines; and, if 
necessary, the disk FIO (class 3) subroutines. 

The same procedure described above is necessary 
if LOCALS are employed without SOCALs. In other 
words, LOCALs, as well as SOCALs, require two 
passes. 



INTERRUPT LEVEL SUBROUTINES (ILSs) 

After all other subprograms have been relocated, 
the Interrupt Transfer Vector (ITV) in the core 
image header is scanned. Except for the entries 
for interrupt levels 2 and 4, a non-zero entry 
causes the corresponding ILS to be incorporated 
into the core load. (ILS02 and ILS04, unless 
supplied by the user, are a part of the Resident 
Monitor.) See Interrupt Branch Table, above, 
for a description of the processing of that part of 
an ILS. 



TRANSFER VECTOR (TV) 

The transfer vector consists of two parts: the 
LIBF TV and the CALL TV. The former provides 
the linkage to LIBF subprograms, the latter to 
CALL subprograms. The LIBF TV was created to 



enable the LIBF statement to require only one 
storage location during execution. This is desirable 
because 1130 FORTRAN object code contains a very 
high percentage of calls to subprograms. Long 
branches to those subprograms would greatly in- 
crease core requirements for core loads over a 
method that employs short branches. By replacing 
the LIBF statement with a short BSI, tag 3, to a 
transfer vector entry, which could then supply the 
long branch to the desired subprogram, this problem 
is solved. The cost, of course, is that XR3 is taken 
away from the user and the transfer vector is limited 
to 255 words. This means the LIBF TV has a 
maximum of 85 3 -word entries, two of which become 
the real-number pseudo -accumulator (FAC) and an 
indicator for certain arithmetic subroutines. Thus, 
the user is limited to LIBFs to not more than 83 
separate subprogram entry points per core load. 

There is no theoretical limit on the number of 
CALL entry points per core load, for the CALL 
statement is replaced by an indirect BSI to the 
desired subprograms. However, the number of 
CALL and LIBF references combined must not 
exceed the capacity of the Load Table, which is 
approximately 150 entries. 

The CALL TV entry is one word only, the address 
of the subprogram entry point. This makes it pos- 
sible to replace a CALL statement with an indirect 
BSI to the corresponding CALL TV entry, even though 
the address of the subprogram Itself may not be 
known at the time the CALL is processed. 

When stored on disk in disk core image format 
(DCI), the LIBF TV follows the last word of the last 
subprogram in the core load. It may leave one word 
vacant between it and the CALL TV in order to 
make the pseudo-accumulator (FAC) begin on an 
odd boundary. The CALL TV immediately follows 
the indicator entry in the LIBF TV. During execu- 
tion the TV extends downward in core storage from 
the lowest-addressed word in COMMON, 

Whereas the CALL TV entry consists of only one 
word (the address of the subprogram), the LIBF TV 
entry consists of three words. The first is a link 
word (initially zero), and the second and third are a 
long BSC to the subprogram entry point. 

Figure 10 shows the layout of the transfer vector 
in core storage. 

Linkage to LOCALs 

The LOCAL/SOCAL flipper (FLIPR) is included in a 
core load if that core load requires LOCALs and/or 
SOCALs. The flipper transfers control to a LOCAL, 
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fetching it first, if necessary. It does likewise for 
a SOCAL, except that it is never entered If a sub- 
program is called that is a part of the SOCAL current- 
ly in the SOCAL area (see Linkage to the System 
O verlays) . 

The Flipper Table immediately precedes the 
flipper. It consists of a 6-word entry for each entry 
point specified in the LOCAL information in the SCRA 
(for a given mainline) that is referenced by a CALL 
and a 5-word entry for each entry point referenced by 
a LIBF. If a subprogram has more than one entry 
point but only one is specified in the LOCAL informa- 
tion (a specified LOCAL), there is a Flipper Table 
entry for each entry point referenced in the core 
load. 

The format of a 5-word (LIBF) entry in the 
Flipper Table is as follows: 



Word 

1-2 
3 
4 
5 



Description 

BSI L FLOOD 

Word count of the subprogram 
Sector address of the subprogram 
Entry point address in the sub- 
program 



The format of a 6-word (CALL) entry in the 
Flipper Table is as follows: 



Word 

1 
2-3 

4 
5 
6 



Description 

Link word 
BSI L FLOIO 

Word count of the subprogram 
Sector address of the subprogram 
Entry point address in the sub- 
program 



Linkage to the System Overlays (SOCALs) 

In order to assure very fast transfer to a subi)rogram 
that is a part of a SOCAL that is in core storage at 
a given time, special transfer vector entries are 
made for SOCAL subprograms. They are different 
from the standard LIBF and CALL linkages, Jtnd they 
are different from the linkage to a LOCAL. The 
SOCAL transfer time is approximately 20 micro- 
seconds, compared to 150-180 microseconds to a 
LOCAL. (Both timings assume a 3, 6 microsecond 
storage cycle. ) 

Figure 11 shows an entry in the LIBF TV for an 
in-core subprogram (entry 2) and the special linkage 
in the LIBF TV for SOCAL subprograms (entries 
3-8). Entry 1 is the LIBF TV entry for a SOCAL 
subprogram. The "disp" is a displacement to the 
second word of the linkage for the SOCAL in vrhich 
the subprogram is foimd. 

The example represented in Figure 11 is one that 
requires SOCAL option 2; TV entries 5 and 8 would 
not appear if option 1 were used. Entry 1 is the 
last entry in the LIBF TV, i.e. , the highest- 
addressed word of the transfer vector. Suppose that 
(1) a LIBF to FADD were made and (2) SOCAL 1 were 
not in core. The LIBF would be a BSI to the first 
word of entry 1, which would then BSI to the second 
word of entry 3. Entry 3 would MDX to the first 
word of entry 6, which would transfer control to the 
LOCAL/SOCAL flipper subroutine (FLIPR) at 
FL23O9 the entry point in FLIPR for fetching the 
arithmetic subprograms. The flipper would fetch 
SOCAL 1, change the third word of entry 3 to MDX 
to *-3, and BSC to the first word of entry 3, which 
then transfers control to FADD. The flipper would 
also ensure that the third words of entries 4 ajid 5 
were both MDX to *-12. 
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ENTRY 8 - a branch to the entr/ point 
in the flipper for fetching SOCAL 3; 
an unused word 



ENTRY 7 - a branch to the entry point 
in the flipper for fetching SOCAL 2; 
an unused word 



ENTRY 6-0 branch to the entry point 
in the flipper for fetching SOCAL It 
on unused word 



ENTRY 5 - a branch to a subroutine In 
SOCAL 3 via word 3 of DBF TV 
entry; a branch to fetch SOCAL 3 



the first word of entry 3, followed by a transfer of 
control to FADD. The transfer has required only 2 
short BSIs, a short MDX, and an indirect BSC. 

The linkage for a CALL to a function is somewhat 
different from that just described. Suppose that 
(1) SOCAL option 2 was used and (2) each SOCAL 
consists of two subprograms, FABS and FSQR being 
the functions in SOCAL 1. 

Figure 12 shows SOCAL 1, SOCAL 2, and SOCAL 
3 as they are stored on the disk. The first 2 words 
of each of these SOCALs are the CALL TV for 
the subprograms in that SOCAL. 

A CALL to FSQR, for example, would be an 
indirect BSI to the second word of whichever SOCAL 
happened to be in the SOCAL area. If this were 
SOCAL 1 , control would be immediately transferred 
to FSQR. Otherwise, control would first be given to 
the LOCAL/SOCAL flipper at FL200, the entry point 
in FLIPR for fetching the function subprograms. 
The flipper would fetch SOCAL 1 and re-execute the 
original CALL to FSQR. 
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ENTRY 4-0 branch to a subroutine in 
SOCAL 2 via word 3 of LIBF TV 
entry; a branch to fetch SOCAL 2 



ENTRY 3-0 branch to a subroutine ir 
SOCAL 1 via word 3 of LIBF TV 
entry; a branch to fetch SOCAL 1 



ENTRY 2 - a link word; a branch to 
on In-core subroutine. I.e., 
FLOAT 



DEFINE FILE TABLE 

The processing of the DEFINE FILE Table normally 
consists of filling in word 5 (the sector address) for 
each entry in the DEFINE FILE Table preceding the 
mainline program. 

However, additional processing is required when 
a file must be truncated, i. e. , the space available 
on the disk is insufficient to store the number of 
records defined in the file. If the file is in the User/ 
Fixed Area, or if it is the only file in a particular 
Working Storage, then the Core Load Builder attempts 
to truncate it enoi^h to fit. 
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Figure 1 1 . SOCAL Linkage in the LIBF Transfer Vector 



Suppose now that FADD were called again before 
some subprogram in either SOCAL 2 or SOCAL 3 
were called. This time the LIBF would cause a 
BSI to the first word of entry 1 and then to the 
second word of entry 3. The MDX would then be to 
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Figure 12. CALL Transfer Vector for SOCALs 
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First, the entire DEFINE FILE Table is fetched 
and stored in the unoccupied area allocated to the 
Load Table. If the Core Load Builder determines 
that a file can be truncated, the niunber of records 
and the disk block covmt in the appropriate DE FINE 
FILE Table entry are modified accordingly. As 
each entry is completed, all seven words are relocat- 
ed in the same manner as the other words of the 
core load. 

The processing consists of comparing the file 
number of a DEFINE FILE Table entry with each of 
the file numbers in the FILES information in the 
SCRA, If any. If a match occurs, the name of the 
disk area associated with the file number obtained 
from the FILES information is found in LET/FLET, 
and the absolute sector address of that disk area 
is placed in word 5 of the DEFINE FILE Table 
entry. If none of the file numbers from the FILES 
information match tlie file numbers in the DEFINE 
FILE Table, the file is set up in Working Storage, 
1. e. , the relative (to beglnnii^ of Working Storage) 
sector address is stored in the DEFINE FILE 
Table. The sign bit is set to indicate that this is 
a relative address. In either case, the system 
cartridge Is assumed unless a cartridge ID has 
been specified in the FILES information. 

The format of a DEFINE FILE Table entry is as 
follows: 



Symbolic 
Reference 

@FLNR 
@RCCT 
@WDRC 

@ASOC 



@SCAD 
@RCSC 

@BCNT 



Word Description 

1 File number 

2 Number of records In the file 

3 Number of words per record 

4 Address of the associated 

variable 

5 Sector address of the file; 

initially zero, filled in by 
the Core Load Builder 

6 Nvimber of records per sector 

7 Disk block count of the file 

PHASE DESCRIPTIONS 



PHASE 

Phase always remains in core. It consists of two 
main sections, (1) the basic subroutines required by 
all other phases and (2) the constants and work areas 
shared by two or more subroutines. The latter 
section is known as RCOM. 

The following is a list of the subroutines that 
comprise phase and the functions they perform. 



RHOOO Fetch the mainline program header 

record 
NWOOO Fetch the next word in sequen«3e fro 

from the data buffer, reading a 

new sector when nexessary 
BTOOO Add an entry to the Load Table 

PMOOO Fetch one of the message phase 

and transfer control to it 
GPOOO Read from or write to the disk 

TLOOO Terminate Loading 

EXOOO Print a message and exit 

CNOOO Test a subroutine name for disk I/O 



PHASE 1 

Phase 1 performs the initialization functions that 
must be done prior to the relocation of the mainline. 
Initialization consists of, principally, fetching DCOM 
and extracting the parameters stored there that * 
are needed by the Core Load Builder and fetching the 
mainline leader record and saving the information 
therein. 

In addition, phase 1 makes an entry in the Load 
Table for each LOCAL, NOCAL and G2250 specified 
in the LOCAL, NOCAL and G2250 information in the 
SCRA, if any. 

The following is a list of the subroutines that 
comprise phase 1 and the fiinctions they perform. 



Subroutin e 
INOOO 



Function 



LNOOO 



Initialize the Core Load Builder, process 
the mainline header process LOCAL, 
NOCAL and G2250 names from the SCRA, 
Enter LOCAL, NOCAL and G2250 names 
in the Load Table. 



Subrout ine 

LKOOO 
LSOOO 



Function 

Fetch a phase 
Search LET/FLET 



PHASE 2 

After the execution of Phase 1, part of Phase 2 
remains in core until the core load is completed. 
Phase 2 contains the Master Control subroutine, 
the relocation subroutine, and the transfer sub- 
routine, among others (see below). Master Con- 
trol supplies the basic logic for the Core Loadl 
Builder. The relocation subroutine supplies the lo 
logic for relocating a program, i. e. , incorporating 
rating it into the core load. The transfer sub- 
routine provides the logic for transferring a 
relocated word of the core load to the CIB, the 
CIB buffer, or Working Storage, whichever is 
appropriate. These three subroutines are basiic 
to the process of building a core load. 

The following is a list of the subroutines thsit 
comprise Phase 2 and the functions they perform. 
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Subroutine Function 

MCOOO Master control for the Core Load 

Builder 
RLOOO Relocate a program; convert it 

from disk system format to 

core image format 



The data and CIB buffers are combined into a 
single 640 -word buffer for the purpose of fetching 
the *LOCAL, *NOCAL, *FILES and *G2250 infor- 
mation from the SCRA. 
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The transfer subroutine provides the logic for trans- 
ferring a relocated word of the core load to the CIB, 
the CIB buffer, or Working Storage, whichever is 
appropriate. These three subroutines are basic to 
the process of building a core load. 

The following is a list of the subroutines that 
comprise phase 2 and the functions they perform. 



Subroutine 
MCOOO 

RLOOO 



TSOOO 
CQOOO 



TROOO 

XCOOO 

DCOOO 
MVOOO 
MLOOO 

CKOOO 

DFOOO 

FMOOO 

PHASE 3 



Function 

Master control for the Core Load 

Builder 
Relocate a program; convert it 

from disk system format to disk 

core image format 
Process the IBT 
Check name of subroutines or files 

defined in a DSA statement 

against the Equate Table. 
Output one data word to core or 

disk 
Fill in exit control cells during 

pass 2 
Process DSA statements 
Output the DEFINE FILE Table 
Check mainline loading address 

for validity 
Check for overlay of core load and 

COMMON 
Process the DEFINE FILE Table 

entries 
Print a map of the DEFINE FILE 

Table 



Phase 3 performs four functions. It checks the 
information in subroutine header records (except 
ILSs) and stores it in RCOM. It also ensures that 
during pass 2 the subprograms are relocated by 
class, i.e. , class first, LOCALs second, class 1 
third, class 2 fourth, and class 3 fifth. It compares 
the reference to each subprogram, i.e., CALL or 
LIBF, with the type (from the program header 
record). Lastly, as a subprogram is chosen for 
relocation, phase 3 checks whether or not it has 
already been relocated under a different name, i.e. , 
another entry point. 

The following is a list of the subroutines that 
comprise phase 3 and the functions they perform. 



Subroutine 


Function 


HROOO 


Process the program header 




record for subroutines 


CCOOO 


Control the loading of subroutines 




by type 


TYOOO 


Verify subroutine references 


SVOOO 


Scan Load Table for multiple 




references 



PHASE 4 

Phase 4 performs two functions. It incorporates 
ILSs into the core load and it determines whether or 
not a core load fits in core storage or can be made 
to fit with SOCALs by computing the core that can 
be saved by employing SOCALs. 

The following is a list of the subroutines that 
comprise phase 4 and the functions they perform. 



Subroutine 

ILOOO 
ETOOO 



Function 

Fetch and relocate an ILS 
Calculate core load size 



PHASE 5 

Phase 5 creates the Flipper Table if LOCALs have 
been specified, sees to it that the flipper is relocated, 
and provides the logic for building each SOCAL. 
This phase is flip-flopped with phase 3, It is brought 
into core storage once if there are LOCALs and once 
for each SOCAL, which implies a maximum of four 
times. 

The following is a list of the subroutines that 
comprise phase 5 and the functions they perform. 

Subroutine Function 

PLOOO Process LOCAL subprograms 

PSOOO Process SOCAL subprograms 

FFOOO Relocate the LOCAL/SOCAL 

flipper, FLIPR 
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PHASE 6 



PHASE 12 



Phase 6 performs several miscellaneous functions 
that must follow the actual building of most of the 
core load„ The most important of these is the con- 
struction of the transfer vector from the Load Ta.ble. 
Other functions performed in phase 6 are filling in 
exit control cells and completing the core image 
header. 

The following is a list of the subroutines that 
comprise phase 6 and the functions they perform. 



Subroutine 

TVOOO 
TPOOO 

PHASE 7 



Function 

Build the transfer vector 
Complete core image header, fill 
in exit control cells, etc. 



Phase 12 formats and prints (via the principal print 
device subroutine) the allocations of core storage. 
It is entered only if a map is requested. 

PHASE 13 

Phase 13 is entered from phase 2 when a GSB, GBE, 
or GBCE order is encountered. The GSB processing 
adds the relocation factor to the GSB address to insure 
that it is below core location 8192. The GBE and GBCE 
processing enters the name of the external subroutine 
in the Load Table. The GBE or GBCE order is then 
replaced with a GB or GBC Indirect through the trans- 
fer vector entry. 

DEBUGGING/ANALYSIS AIDS 



Phase 7 formats and prints (via the principal print 
device subroutine) all messages from ROO-EIO. 
These messages contain no variables. 

PHASE 8 

Phase 8 formats and prints (via the principal print 
device subroutine) all messages from R16-R23. 
These messages contain a 5-character name follow- 
ing "R XX". 

PHASE 9 

Phase 9 formats and prints (via the principal print 
device subroutine) all messages from R39-R47. 
These messages contain a hexadecimal address 
following "R XX". 

PHASE 10 

Phase 10 formats and prints (via the principal print 
device subroutine) all messages from R64-R68. 
These messages contain a 5-character name follow- 
ing "R XX". 
PHASE 11 

Phase 11 formats and prints (via the principal print 
device subroutine) the files portion of the map. It 
is entered only if (1) a map is requested and (2) there 
are files defined. 



Stopping the Core Load Builder at the proper time 
is often the key to pinpointing problems in monitor 
system and, in some cases, user programs,, There 
are NOP instructions in several critical locations in 
the Core Load Builder; they are: LKOOO+1, PMOOO+1, 
INOOO+1, MCOOO, ElOOO+l, E2000+1, E3000+1, and 
E4000+1. These NOPs can be replaced by WAIT 
instructions so that core dumps can be taken at 
various stages of the core load building process. 
A WAIT replacing the NOP at PMOOO+1 is often the 
most useful, for it can be used to stop the Core Load 
Builder just before an error message is printed. 

Bear in mind that, even though an error is detect- 
ed by the Core Load Builder, it may well be due to a 
failure somewhere else in the monitor system. The 
message printed may not be a very good indication of 
the error; many checks are present in the Core Load 
Builder simply to keep it from destroying itself. 
For example, a common message is R16, and the 
name given in the message may well be som(3thing 
that makes no sense or was not referenced in the 
core load. The problem may well be erroneous 
output from the FORTRAN Compiler or Assembler 
Program or a destroyed User Area. In such a case 
an analysis of the contents of the data buffer BUFLO 
usually provides the clue to the error. 

To facilitate path tracing through the Core; Load 
Builder, all subroutines in the Core Load Builder 
are entered with BSI instructions. 
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SECTION 9. DISK UTILITY PROGRAM (PUP) 



FLOWCHARTS 


CCAT: 


DUPOl 


DCTL: 


DUP02 


STORE: 


DUP03 


FILEQ: 


DUP04-06 


DDUMP: 


DUP07-08 


DUMPLET: 


DUP09 


DELETE: 


DUPIO 


DEFINE: 


DUPll 


DEXIT: 


DUP12 


PRE CI: 


DUP13 



The Disk Utility Program (DUP) is actually a group 
of programs provided by IBM to perform certain 
frequently required operations Involving the disk 
such as storing, moving, deleting, and dumping 
data and/or programs. These operations are called, 
for the most part, by user-supplied DUP contix)! 
records. 



DUP OPERATION 



When DUP is called, the phases CCAT and DUPCO 
are brought into core storage. CCAT forms the re- 
quired DUP I/O subroutine sets (phases 14, 15, 16) 
and records them. CCAT also forms the balance of 
UPCOR, including CATCO and the principal print 
device subroutine, and is completely overlaid by 
part of UPCOR, leaving only the DUPCO part of 
phase 1 in core storage as part of UPCOR. 

Control is passed to REST (of DUPCO) and REST 
in turn calls DCTL into core storage. 

In general, DCTL reads, prints, decodes and 
checks the control records, and then calls in the re- 
quired phase to continue processing as the function 
requires. 

The called phase completes the function, includ- 
ing the printing of the terminal message. Control 
is then passed to REST (of DUPCO), which restores 
CATCO areas to zero as required for Initialization, 
fetches DCTL if it is not already in core (4K system), 
and branches to DCTL to read the next record. 

When a monitor control record is read, a CALL 
EXIT is executed by DEXIT. 



CORE STORAGE LAYOUT 



Figure 13 shows the layout of core storage during 
DUP operation. Panel 1 shows the overlay scheme 
used for 4K systems, panel 2 for 8K systems, panel 
3 for 16K systems, and panel 4 for 32K systems. 
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Figure 1 3 . Core Layout During Disk Utility Program Operation 
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DUP CONTROL RECORDS 



In the table below, DUP control records are classi- 
fied by type according to the phases required to com- 
plete their processing. 



Type 


Phases Required 


STORE 
STORE MOD 
STOREDATA 
STOREDATACI 


DCTL, STORE ,DUPCO 


STORE CI 


DCTL,FILEQ, STORE, 
DEXIT, Core Load 
Builder, PRECI, DCTL, 
STORE, DUPCO 


DUMP 
DUMEDATA 


DCTL.DDUMP.DUPCO 


DELETE 


DCTL, DLETE, DUPCO 


DEFINE FIXED AREA 

DEFINE VOID 

ASSEMBLER 

DEFINE VOID FORTRAN 

DEFINE VOID RPG 


DCTL, DFINE, DUPCO 


DUMPT.KT 

DUMPFLET 


DCTL, DMPLT, DUPCO 


DWADR 


DCTL, DEXIT, ADRWS 
Program, DUPCO 



LOCATION EQinVALENCE TABLE (LET)/FIXED 
LOCATION EQUIVALENCE TABLE (FLET> 

LET is the table through which the sector addresses 
of programs and data files stored in the User Area 
may be found. Each entry in this table consists of 
three words, the first two of which are the program 
or file name in name code. The third word is the 
disk block count of the program or file. Bits and 1 
of the first word denote the format of the entry, i. e. , 
DSF, DCI, or DDF. The corresponding bit patterns 
are 00, 10, and 11. The 01 pattern is reserved for 
future use. For a DSF subroutine having multiple 



entry points, the disk block count is zero foi- all 
entry points except the first. 

Padding is inserted wherever a DCI or DDF 
entry is preceded by a DSF entry, and is re- 
flected in LET as if a program called "IDUMY" 
were stored. That is , each instance of padding 
generates a IDUMY entry in LET, and the block 
count for each of these entries is the numbei' of 
disk blocks to the nearest sector boundary (:nay 
be zero). The last entry in LET is always a 
IDUMY entry that reflects the number of disk 
blocks from the end of the last program stored in 
the User Area to the end of the disk. 

Each sector of LET contains a header, wltiich 
occupies the first five words of the sector. The first 

word contains the sector number, which is 0, 1 

or 7. The second contains the sector addresis of the 
User Area for this cartridge. The third is reserved 
for future use. The fourth contains 315 minus three 
times the number of LET entries found in this sec- 
tor, i. e. , the number of words unused (avai!Lable) in 
this sector. If this is not the last sector of LET on 
this cartridge, then the fifth word contains tlbie ad- 
dress of the next sector of LET. If it is the last 
sector of LET and if there is no FLET on this car- 
tridge, this word contains zero; otherwise, it con- 
tains the address of the first sector of FLET. In 
other words, this fifth word (chain address) is used 
to chain from LET through FLET, sector by sector. 
Bits 0-3 of the fifth word are always zeros. Note 
that, when referring to a dump of LET, the above 
header words are expressed in hexadecimal. 

FLET is the table through which the sector ad- 
dresses of programs and data files stored in the 
Fixed Area may be found. FLET is analogous to 
LET in the format of its entries and its use Iby the 
monitor system programs. 

LET/FLET is searched by LETSR of DCTL for 
the name decoded from DUP control records of the 
STORE, DUMP, and DELETE types. The informa- 
tion required by other DUP phases is recorded in 
CATCO. If a DSF program is being stored, then 
LETSR also searches LET/FLET for the secondary 
entry point names as well. 

STOEE inserts the required entries Into LET/ 
FLET (one entry for each entry point). If a DCI 
program or data file is being stored and padding 
is required, then a IDUMY LET/FLET entry is 
inserted prior to the named LET/FLET entry. All 
secondary entry points have their entries on the 
same sector as the LET/FLET entry for the primary 
entry point. 
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PUP CONCATENATED COMMUNICATIONS 
AREA (CATCO) 

CATCO contains the following elements: 

• DCOM values that are read from DOOM and 
placed in CATCO by CCAT of DUPCO. 

• lOAE headers (word counts and sector addresses) 
required by DUP, furnished to CCAT by the 
System Loader, converted by CCAT to two-word 
entries each, and placed in DCOM by CCAT of 
DUPCO. 

• Words used only by DUP for switches, small 
work areas, and communications between various 
DUP phases. 

• I/O addresses used by DUP, initialized by CCAT 
of DUPCO. 



DCOM VALUES 

DCOM is read from the master cartridge by CCAT 
of DUPCO whenever DUP is called by the Monitor 
Control Record Analyzer. The following parameters 
in DCOM are used by DUP: 





Relative Address 


Location 


(decimal) 


#ANDU 


35 


#BNDU 


40 


#CBSW 


10 


#CL^ 


27 


#GIBA 


60 


#CIDN 


55 


#CSHN 


90 


#DBCT 


6 


#DGSW 


24 


#ENTY 


16 


#FCNT 


7 


#FHOL 


20 


#FLET 


75 


#FMAT 


70 


#FPAD 


45 


#FKDR 


19 


#FSZE 


21 


#GCNT 


30 


#JBSW 


9 


#LCNT 


11 





Relative Address 


Location 


(decimal) 


#MDF1 


13 


#MDF2 


14 


#MPSW 


12 


#NAME 


4 


#NCNT 


15 


#PCID 


50 


#PIOD 


25 


#PPTR 


26 


#RP67 


17 


#SCRA 


65 


#TODR 


18 


#UHOL 


22 


#ULET 


80 


#USZE 


23 


#WSCT 


85 



These parameters are referred to by an index regis- 
ter that contains the address of the first word of 
DCOM plus the displacement given above. 

Whenever a parameter in DCOM has been changed 
by DUP and control is being relinquished to another 
monitor system program, DUP writes the DCOM 
values in CATCO to DCOM on the master cartridge 
before exiting. If a change has been made that 
refers to a satellite cartridge, the DCOM values are 
also written to DCOM on the affected cartridge. 

See the description of DCOM in Section 2. Com- 
munication Areas for details regarding the above 
parameters. 



lOAR HEADERS 

CATCO contains the lOAR header for each phase of 
DUP required by other phases during the execution of 
the various DUP functions; they are: 



Location 


Phase Name 


Phase Number 


DCHDR 


DCTL 


2 


STHDR 


STORE 


3 


FLHDR 


FILEQ 


4 


DMHDR 


DDUMP 


5 


DLHDR 


DMPLT 


6 


DTHDR 


DLETE 


7 


DFHDR 


DFINE 


8 


DXHDR 


DEXIT 


9 


UCHDR 


UPCOR 


10 
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Location 


Phase Name 


Phase Number 


PniDR 


KFACE 


11 


SIHDR 


CFACE 


12 


PTHDR 


PFACE 


13 


cmDR 


PRECI 


17 



These headers are initialized by CCAT of DUPCO 
whenever the Monitor Control Recqrd Analyzer calls 
DUP. The contents of these headers are not altered 
by any phase of DUP. 

Each lOAR header consists of two words, woi-d 1 
containing the word count and word 2 containing the 
sector address of a phase. Each pair is aligned on 
an even boundary. 



SWITCHES 

The following DUP switches are initialized by CCAT 
of DUPCO and not altered by any function of DUP. 

ADDR2 — Keyboard interrupt addrpss, to be put in 
location $mEQ by MASK of DUPCO so that during 
a masked operation, the Keyboard interrupt is 
delayed by DUP until a critical Operation is 
completed. 

KBREQ — Contents of location $1REQ , saved by 
CCAT of DUPCO when DUP is given control, and 
restored by DEXIT of DUP when leaving DUP. 

INOUT — Indicator for the principal I/O device 
when DUP was called by the Monitor Control 
Record Analyzer. 
Negative = Paper Tape. 
Zero = Cards. 
Positive = Keyboard. 

PTPON — A non-zero value if paper tape devices are 
are present on the system. 

IBT — Nine locations containing the interrupt branch 
table for level 4, initialized by CCAT of DUPCO 
and the card and paper tape interface phases. 



ASMSW ~ Set non-zero by DFCTL of DCTL when a 
DEFINE control record indicates that the Assem- 
bler Program is to be deleted from the Piaster 
cartridge. Used by DFINE for functional flow 
control. 

BITSW — Set non-zero by RE015 of DCTL to allow 
the MDUMP subroutine in DUPCO to call the 
System Core Dump program while executing var- 
ious DUP phases. It is set on the basis of the 
contents of column 35 of the DUP control records. 
This column is not normally used, but it may be 
used to obtain snap-shot core dumps while per- 
forming DUP operations. A zero punched in this 
column causes all possible DUP dumps to occur. 
Other numbers cause core dumps to be taken 
when the phase with the same phase ID is in con- 
trol (See DUP Diagnostic Aids. ) . 

BLKSW ~ Set by the DUP I/O interface subroutine 
(in lOBLK) when reading control records if the 
record is neither a monitor control recoi'd (//) or 
a DUP control record (*D or *S). If turned on, 
DCTL turns it off and returns to the GETHO entry 
of the DUP I/O interface subroutine. This permits 
DUP to pass non-control records, including blanks, 
at the maximum rate of 1000 per minute with a 
single buffer. 

CIERR — Set to a DUP error code for an error 
detected by PRECI during a STORE CI operation. 
DCTL checks CIERR when entered from IPRECI 
(CISW is non-zero) and goes to DEXIT thiru 
LEAVE of DUPCO with the specified error code. 
PRECI cannot go directly to LEAVE because DUP 
UPCOR may not be in core storage at this time 
due to the possibility of being overlaid by the core 
load being built. 

CISW — Set by DCTL when *STORECI is the function 
specified on the DUP control record. Used by 
DCTL to detect an entry from PRECI (during a 
*STORECI function). Used by STORE to determine 
the functional path to be used. 



The following locations are used by DUP for in- 
ternal communication, and are initialized to zero 
by REST before each DUP control record is proc- 
essed. 



CLBSW — Set non-zero by PRECI. Used by STORE 
to indicate an entry from PRECI after the Core 
Load Builder has built the core load for the 
STORECI function. 
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CLl, CL2 — The addresses of the lower and upper 
limits, respectively, of parameters in CATCO 
to be cleared to zero by REST of DUPCO. 

CNTNO ~ Used by GETBI of the DUP I/O interface 
subroutine (in lOBLK) to record the count of 
binary records being read or punched . Permits 
checksum and sequence check operations. 

DATSW — The binary equivalent of the decimal 
value in the count field of the DUP control rec- 
ord. Entered by DACNT of DCTL. A non-zero 
value represents either STOREDATA, 
DUMPDATA, DEFINE FIXED AREA count, or 
STORECI with *FILES, *LOCAL, and *NOCAL 
control records following. Contents are in disk 
blocks if the input is from disk, records if from 
an I/O device. Used by DUMP, STORE, DEFINE 
and FILEQ as a count; also used to control func- 
tional flow. FILEQ clears DATSW before calling 
STORE. 

DBADR — Set by LETSR of DCTL to the disk block 
address of the program represented by the last 
LET/FLET entry searched. Used by DUMP and 
DELETE to indicate the disk block address of the 
desired program or data file. 

DELSW ~ Set by LETSR of DCTL to point to the re- 
quired entry in LET/FLET.,minus one word. 
Actually contains a value somewhere in the buffer 
LETAR. Used by DMPLT when dumping the 
entry point(s) or name of a single program. Used 
by DELETE to point to an entry in LET/FLET 
that is to be deleted. Used by STORE to point to 
an entry in LET/FLET where the entry point(s) 
is to be inserted. 

DFNSW ~ Set by DFCTL of DCTL to indicate a 
DEFINE FIXED AREA operation. Used by 
FRLAB of DCTL to bypass the decoding of the 
FROM field. 

DKSAD — Set by DUP30 and DUP34 of DUPCO to 
indicate the sector address (without a logical drive 
code) of the current GET or PUT operation. 

DUMPP — Two words located on even boundary, set 
by all DUP phases requiring special monitoring 
dumps. Used by MDUMP of DUPCO to specify 
lower and upper limits to be dumped to the 
printer. 



EBCSW — Set non-zero by DCTL when a STOREDATA 
or a DUMPDATA control record contains an E in 
column 11, Used by STORE when input data is to 
be stored in packed EBCDIC format, i, e. 80 card 
columns to 40 words , and by DUMP when such 
data is to be converted and dumped to cards or 
printer. 

FRWS — Set non-zero by SC130 if the FROM field 
is Working Storage. Used by DCTL for functional 
flow control and error checking. 

FXSW — Set non-zero by SC130 or SC170 of DCTL 
when either the FROM or the TO field, respec- 
tively, of the DUP control record specifies the 
Fixed Area or when the control record specifies 
DEFINE FIXED AREA. Used by DCTL for error 
checking and functional flow control. Used by 
DFINE, STORE and DUMP for functional flow 
control. 

FORSW — Set non-zero by DFCTL of DCTL when a 
DEFINE control record indicates that the 
FORTRAN Compiler is to be deleted from the 
master cartridge. Used by DFESTE for functional 
flow control. 

lOSW — Set non-zero by either SC130 or SC170 of 
DCTL when any I/O device is specified in the 
FROM or TO field of the DUP control record. 
Used by DCTL for error checking and fimctional 
flow control. Used by DUMP and STORE for func- 
tional flow control. 

LETSW — Set positive by LECTL and negative by 
FLCTL of DCTLo Used by DUMPLET to indicate, 
respectively, a full LET/FLET dump or a FLET 
dump only. 

LSTLF — Set by LETSR of DCTL to the sector ad- 
dress (with a logical drive code) of the last LET/ 
FLET sector searched. If only one sector was 
searched, then the address of that sector is 
entered in LSTLF. Used by DUMP and DELETE 
to identify the logical drive required. 

MODSW — Set non-zero if STCTL of DCTL detected 
a STOREMOD function specified by the DUP con- 
trol record. Used by STORE for functional flow 
control. 

NAMSW ~ Set non-zero by LETSR of DCTL when a 
name is found in LET/FLET that matches the name 
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specified on the DUP control record. Used by 
DCTL for error detection and functional flow con- 
trol. Used by DUMPLET to indicate that only the 
specified LET/FLET entry is to be dumped. 

NEGSW — Set non-zero by DFCTL of DCTL when a 
minus sign is detected in column 31 of a DEFINE 
FIXED AREA control record. Used by DEFINE 
to indicate expansion (zero) or contraction (non- 
zero) of the Fixed Area. 

PGMHL — Word count (length) of the program head- 
er in DSF programs. Set by RDHDR of DCTL to 
the actual program header length. Used by 
STORE to start the placement of the first data 
header in the DSF output. Set by DUMP from the 
program header. Used by STORE to update LET 
with the required number of entries. 

P1442 — Set by CCAT of DUPCO to contain the word 
count and sector address of the System 1442 sub- 
routine. Used by DDUMP to read the System 
1442 subroutine into core when dumping to cards. 

PHDUP — Duplicate of $PHSE to permit printed 
identification of the DUP phase requesting a core 
dump. 

PRPAR — Two words specifying the default limits 
to be dumped by MDUMP, Set by any module of 
DUP desiring to use MDUMP for monitoring DUP'e 
status. Usually set to point at key parameters 
and work areas. 

PRSW — Set non-zero by SC170 of DCTL when 
printing is specified as the desired output on the 
DUP control record. Used by DCTL for error de- 
tection and by DUMP for functional flow control. 

PTSW — Set non-zero by SC130 or SC170 when 
paper tape is specified in the FROM or TO field 
of the DUP control record. Used by DCTL for 
error detection and functional flow control. Used 
by DUMP for functional flow control. 

I RPGSW — See ASMSW and FORSW. 

SDWDS — The number of words yet to search in the 
current LET/FLET sector. Set by LETSR of 
DCTL. Used by LETSR of DCTL to test for the 
sector search complete condition. 

STCSW ~ Set non-zero by ST400 of DCTL when the 
CI is detected in columns 11 and 12 of the 



STOREDATACI control record, 
for functional flow control. 



Used by STORE 



STSW ~ Set non-zero by STCTL of DCTL when a 
STORE control record is found. Set by LISTSR of 
DCTL to the sector address (with a logical drive 
number) of the LET/FLET sector that coriitains the 
IDUMY entry that may be replaced by the entry 
for the program to be stored. Used by DC3TL for 
functional flow control. Used by STORE to hold 
the LET/FLET sector address and drive code 
prior to inserting the LET/FLET entry for the 
program or data file to be stored. 

TEMPI, TEMP2 — Two words, on an even boundary, 
used by various phases of DUP for miscellaneous 
purposes; i.e. , DUPIO of DUPCO returns four 
EBCDIC characters in TEMPI and TEMP2 as the 
result of converting from binary to hexadescimal 
for purposes of printing. 

TOWS — Set non-zero by SC170 if the TO field is 
Working Storage. Used by DCTL for error check- 
ing and functional flow control. 

T3MSW — Set non-zero by STCTL of DCTL when a 
type 3 or 4 subroutine contains a SOCAL level 
number specified on the DUP control record. Used 
by STORE to modify the type field in the pirogram 
header before storing the subroutine to disk. 

UASW — Set non-zero by SC130 or SC170 of DCTL 
when either the FROM or TO field of the 13UP 
control record specifies the User Area. Used by 
DCTL for error checking and functional flow control. 
Used by STORE for functional flow control. 

WSSW ~ Set non-zero by SC130 or SC170 of DCTL if 
the FROM or TO field of the DUP control record 
specifies Working Storage. Used by DCTL for er- 
ror detection. Used by DUMP and STORE for 
functional flow control. 



XEQSW — Set non-zero by PLUS2 of DCTL when 
calling in the required DUP phase to indicate that 
execution of that phase is desired rather than re- 
turning to PLUS2. Set non-zero by any ot;her DUP 
phase using GET of DUPCO to fetch other phases 
from the disk that are to be executed immiediately. 
Used by GET of DUPCO to determine whether to 
return to the link address (zero) or to exeicute 
the phase just fetched (non-zero). 
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The following switches are initialized to zero by 
CCAT of DUPCO, set by PLUS2 of DCTL, and not 
reset by REST of DUPCO. These are cleared by 
DEXIT before UPCOR is saved in preparation to 
calling the Core Load Builder. This forces DCTL 
on return from the Core Load Builder via PRE CI to 
fetch STORE again as It may have been overlaid by 
the core load being built. 

PH2 — Set non-zero by PLUS2 of DCTL when fetch- 
ing another DUP phase. Used by REST of 
DUPCO: if zero, DCTL must be fetched from 
disk; if non-zero, DCTL has already been 
fetched. 

PH3 — Set non-zero by PLUS2 of DCTL when fetch- 
ing STORE. Used by PLUS2 of DCTL: if zero, 
STORE must be fetched from disk; if non-zero, 
STORE has already been fetched. 

PH4 — Set non-zero by PLUS2 of DCTL when fetch- 
ing DDUMP. Used by PLUS2 of DCTL: if zero, 
DDUMP must be fetched from disk; if non-zero, 
DDUMP has already been fetched. 

lOREQ ~ Set non-zero by PLUS2 of DCTL in case 
I/O other than from the specified I/O device is 
required (i. e. , Keyboard input when the DUP 
operation is a STORE from cards) . Checked by 
READ of DCTL, and, if still non-zero, the princi- 
pal I/O section (DUP phase 14) is brought back 
Into core storage. 



performed during any DUP operation. The con- 
tents of this buffer are in packed EBCDIC. 

lOBLK — Set to the starting address for the I/O 
block portion of UPCOR. The I/O block contains 
one of phases 14, 15, or 16 of DUP. 

SDBUF — Set to the address of the 322-word buffer 
used by the STORE, DDUMP, and DELETE func- 
tions of DUP. This buffer always resides in the 
first 4K of core storage. 

LETAR — Set to the address of the 322-word buffer 
used for the LET/FLET search of DUP. This 
buffer is also a one-sector buffer, or the second 
half of a two-sector buffer used in disk I/O oper- 
ations. 

PEBUF — Set to the address of a buffer used for 
printing the DUP control records (41 words in 
packed EBCDIC) or for printing a LET dump, a 
FLET dump, a program dump, or a data dump 
(61 words in packed EBCDIC). 

THIS — Set to the address of one of two buffers used 
for double buffering of binary input (see NEXT) . 
The buffer is 81 words long. 

NEXT — Set to the address of one of two buffers 

used for double buffering of binary input (see THIS) . 
The buffer is 81 words long. 



I/O ADDRESSES 



DUP PHASE DESCRIPTIONS 



The following are the I/O addresses required by the 
various DUP phases. They are initialized by CCAT 
of DUPCO when DUP is given control. All except 
THIS and NEXT remain as initially set. All (except 
SDBUF) contain the address of an I/O buffer in 
UPCOR. Thus, the locations of the referenced 
buffers are dependent on core size; in any case, they 
always reside In the upper 4K of core storage. 
SDBUF always resides in the first 4K of core storage. 

CRBUF ~ Set to the address of an 81-word buffer 
used for reading DUP control records in unpacked 
EBCDIC. 

HDBUF — Set to the address of the buffer used for 
printing the page heading after each page restore 



DUP COMMON (DUPCO) 

• Initializes the I/O phases required by DUP and 
builds the DUP Communications Area (CATCO). 

• Performs functions commonly required by other 
DUP phases. 

The initialization function of DUPCO is performed 
by a subroutine known as CCAT. CCAT resides in an 
area reserved for the System print subroutine, but is 
not overlaid by it until all other initialization has been 
completed. This initialization includes: 

• Construction of the DUP paper tape I/O phase if 
paper tape is attached. This phase is written to 
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the disk area reserved for DUP phase 16 at 
System generation time. 

• Construction of the DUP principal l/O phase 
(without Keyboard). This phase is written to tlie 
disk area reserved for DUP phase 15 at System 
generation time. 

• Construction of the DUP principal I/O phase. 
This phase is written to the disk area reserved 
for DUP phase 14. This phase is left in core 
storage at lOADR. 

• Initialization of all l/O-dependent switches in 
CATCO, 



4 
5 
8 
9 
A 



Convert binary to EBCDIC 
Print terminal messages 
Read cards 
Read paper tape 
Read Keyboard 



PHID — This subroutine is used to record the phase 
ID of the phase in execution in $PHSE of COMMA. 
It is also used by some DUP phases to illustrate 
the progress of execution from one section of the 
phase to the next. When used for this puriKJse, 
the high-order digit of $PHSE is changed to the 
appropriate phase section modifier. A core dump 
indicates the last section of the phase that was 
executed. 



• Incorporation of DCOM from the master cartridge 
into CATCO. 

• Incorporation of lOAR headers (word counts and 
sector addresses) of other DUP phases into 
CATCO. This information is supplied to CCAT 
by the System Loader. 

• Initialization of DUP's page heading buffer with 
the heading contained in sector @HDNG. 

• Fetching the System device subroutine for the 
principal print device. This subroutine over- 
lays all but a few words of CCAT. These last 
words are cleared to zero just before branching 
to REST. 

The functions that are common to all DUP phases 
are Included in the non-overlaid section of DUPCO. 
These functions are provided by the following sub- 
routines: 

WRTDC — This subroutine is used by STORE, 
DELETE, and DEFINE when it is necessary to 
update DCOM. This Includes the updating of 
DCOM on any affected satellite cartridge as well 
as on the master cartridge. 

PHIDM — This subroutine is used to modify the 
next-to-high-order hexadecimal digit of $PHSE 
in COMMA. It Is used primarily by DUP's I/O 
functions to Illustrate in a core dump the I/O 
operation last performed. The modifications are: 



Read from disk 
Write to disk 



MASK — This subroutine is used to prevent recogni- 
tion of the INTERRUPT REQUEST key. The func- 
tion of this key is to terminate the current job, 
but DUP must not allow this termination to take 
place while in a critical operation. Therefore, 
functions that affect LET/FLET, the User or Fixed 
Area, the CIB, and DCOM delay its recognition 
(STORE, DELETE, DEFINE). 

LEAVE ~ This subroutine is used to fetch DUP's 
exit phase (DEXIT) to print an error message or 
service a special exit, such as an exit to the Core 
Load Builder (STORE CI function), an exit to the 
ADRWS program (DWADR function) , or an exit to 
the Supervisor following the trapping of a monitor 
control record. 

MDUMP — This subroutine makes selective calls to 
the System Core Dump program. See DUP Diag- 
nostic Aids. 

BINEB — This subroutine is used to convert binary 
numbers to EBCDIC hexadecimal characters. It 
is used primarily to convert a number for inser- 
tion into a phase termination message, e. g. , 
a cartridge ID , a disk block count. 

PRINT — This subroutine is used to print a line on 
the principal print device. It interfaces with the 
System principal print device subroutine. 

PAGE — This subroutine is used to skip to channel 1 
and print a page heading If the principal print de- 
vice is the 1132 or 1403 Printer. If the Console 
Printer is the principal print device, five carriage 
returns are executed before the page heading is 
printed. 
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LINE — This subroutine is used to single-space the 
principal print device. 

REST — This subroutine is used to chain from one 
DUP function to the next. When a function is 
completed without errors, the DUP phase in con- 
trol prints its termination message and exits to 
REST. REST determines whether or not it is 
necessary to bring DCTL into core storage (1. e. , 
core size is 4K, or DCTL has not yet been loaded), 
and, if necessary, fetches DCTL. REST then 
exits to DCTL. 

ENTER — This subroutine is used to save the ac- 
cumulator and extension, the overflow and status 
indicators, as well as XRl, XR2, andXRS. XRl 
is then loaded with the address of the CATCO 
pointer. 

RTURN — This subroutine is used to restore the 
contents of the accumulator and extension, the 
overflow and carry indicators, as well as XRl, 
XR2, and XR3, as saved by the ENTER subrou- 
tine. 

GET — This subroutine is used to read the disk using 
DISKZ. XR3 points to the lOAR header for this 
read when GET is entered, and XRl contains the 
address of the CATCO pointer. 

PUT — This subroutine is used to write to the disk 
using DISKZ. XRl and XR3 are initialized in the 
same manner as described for the GET subrou- 
tine. Some error checking is done of the word 
count and sector address in the case of GET and 
PUT. No check is made in GET or PUT as to the 
validity of the logical drive code associated with 
the sector address. GET and PUT assume the 
proper logical drive isode has been included with 
the sector address. 



Errors Detected 



• Searches LET for the name specified on STORE, 
DUMP, DUMPLET and DELETE type control 
records. 

• Detects errors in the fields of the DUP control 
records. 

• Calls into core storage the required DUP phase 
and exits to it. 

DCTL remains in core storage during DUP opera- 
tions for configurations of 8K or larger, except dur- 
ing STORECI. DCTL is executed after the REST 
function of DUPCO for each DUP control record as 
well as after PRECI during the processing of a 
STORECI control record. 

DUP Control (DCTL) may be considered in three 
logibal parts: the READ subroutine, the DCTL sub- 
routines, and the PLUS2 subroutine. 



READ Subroutine 

This is the entry point into DCTL. It performs the 
following functions: 

• Reads and prints DUP control records. 

• Flushes invalid DUP subjobs. 

• Checks for a monitor control record and exits 
when one is detected. 

• Ensures that the required DUP I/O subroutine 
set is in core storage. 

• Decodes the function field of the DUP control 
record into the various DUP types. 

• Goes to one of the subroutines in the second logical 
part of DCTL to continue the decoding and process- 
ing of the specified type of DUP control record as 
follows: 



The following DUP errors are detected in DUPCO by 
the GET and PUT subroutines: D92 and D93. 



DUP CONTROL (DCTL) 

• Reads, prints and decodes DUP control records. 

• Sets switches in CATCO to reflect the parameters 
specified on the DUP control record. 



Control Record 

* STORE 

*DUMP 

*DUMPDATA 

*DUMPLET 

*DUMPFLET 

♦DELETE 

♦DEFINE 

*DWADR 



Subroutine Called 

STCTL 
DUCTL 
DACTL 
LECTL 
FLCTL 
DLCTL 
DFCTL 
WACTL 
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DCTL Subroutines 



Buffers Used By DCTL 



These subroutines make up the second logical part 
of DCTL. These subroutines perform the following 
functions for their particular control record type. 

• Decode the balance of the Function field as 
required. 

• Decode the FROM and TO device or area fields. 

• Decode the Name field and perform a LET/FLET 
search if the name is required. 

• Decode the Disk I/O subroutine required with 
STORECI. 

• Decode and record the Count field as required. 
If the operation is a STORECI, FILEQ is brought 
into core storage using the PLUS2 subroutine. 

• Decode the FROM and TO Cartridge ID fields. 



Control records are read into the area defined by 
CRBUF and converted to packed EBCDIC in the area 
defined by PEBUF. It is from PEBUF that the control 
record Is printed by the principal print device sub- 
routine and from which the various fields are decoded. 

Binary records read for STORE are plactsd into the 
two buffers specified by THIS and NEXT in order to 
process secondary entry points that are on the header 
record. 

LET/FLET sectors are read one at a time into 
the area specified by LETAR to be searched for the 
name specified on the control record. 



Errors Detected 

The following DUP errors are detected in DCTL: 
DOl, D02, DOS, D05, D06, D12, D13, D14, D15, 
D16, D17, D18, D19, D20, D21, D22, D23, D24, 
D25, D26, andD27. 



• Check the validity of all fields and go to the 
DEXIT phase if any errors are detected. 

• Prevent restricted phases from being called in 
and executed during Temporary mode of operation. 

• Record all required data in CATCO for use by the 
required phase. 

• Go to the appropriate entry point in the PLUS2 
subroutine to fetch and transfer control to the 
DUP phase required to finish the processing of 
the specified DUP subjob. 

PLUS2 Subroutine 

This subroutine is the third logical part of DCTL 
and is the normal-exit subroutine. The various entry 
points to PLUS2 set up respective lOAR headers that 
cause the desired DUP phase to be called into core 
storage and executed. This subroutine performs the 
following functions: 

• Sets up the lOAR header if the required DUP 
phase is not already in core stor^e. 

• Fetches and/or executes the required DUP phase. 



STORE 

The STORE phase of DUP resides in the DUP phase 
overlay area if the core size is 4K or 8K, or in the 
overlay area plus 8K if the core size is 16K or 32K. 
This phase is read into core storage the firsit time 
DCTL recognizes a STORE control record. It re- 
mains in core storage on a 16K or 32K machine as 
long as DUP has control of the system (i. e. ,, must be 
brought back into core storage when performing a 
STORECI operation). 

STORE may be considered in seven logical parts, 
each of the following subroutines constituting one 
logical part. 



STOOO Subroutine 



This is the entry point to STORE. It serves as a 
master control for STORE , causing various other 
sections of STORE to be executed as they are required 
for various STORE operations. 
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lows Subroutine 



DOLET Subroutine 



This subroutine is executed whenever a STORE op- 
eration is from card or paper tape. It provides the 
following functions: 

• Reads card or paper tape records punched in 
system, data, or core image format. 



This subroutine is executed whenever a STORE oper- 
ation is to the User Area or Fixed Area (except 
STOREMOD). It performs the following functions: 

• Reads the LET or FLET sector to which the entry 
point name (or names) is to be added. 



• Moves data from card or paper tape buffer(s) to a 
disk buffer. 

• Writes the disk buffer to Working Storage (or to 
the User Area or Fixed Area if the operation is a 
STOREDATA or STOREDATACI to the User 
Area or Fixed Area). If the operation is to Work- 
ing Storage, Working Storage of the cartridge de- 
fined as the TO cartridge is used. By default, 
this is the System Working Storage. 

• Updates the Working Storage disk block count and 
format when operation is to, or through, Working 
Storage. 



WDOOO Subroutine 



This subroutine is executed whenever a STORE op- 
eration (except STORECI, STOREDATA, or 
STOREDATACI from cards or paper tape) is to the 
User Area or the Fixed Area. It performs the fol- 
lowing functions: 

• Adjusts the destination User Area or Fixed Area 
disk block address to the next sector when not at 
a sector boundary, if the operation is a STORE - 
DATA or STOREDATACI. 

• Makes the required disk block adjustment when 
moving a system format program to the User 
Area. 

• Moves data or a program in Working Storage to 
the User Area or the Fixed Area. If the opera- 
tion is from Working Storage, Working Storage 
of the cartridge defined as the FROM cartridge 
is used. By default, this is the System Working 
Storage. If the operation is a STORE from cards 
or paper tape. System Working Storage is used. 



• Checks if a IDUMY padding entry is required be- 
fore the name is entered when storing data or core 
image programs to the User Area. 

• If a LET sector cannot contain the entry, updates 
the header words of the LET sector and writes the 
completed LET sector to disk. 

• Enters a name (or names) in a LET or FLET sec- 
tor and updates the "words available" entry in 
the header. In the case of a LET sector, the 
terminal IDUMY disk block size is decremented 
by the number of disk blocks stored. 

• Decrements the IDUMY size in the FLET sector 
by the number of disk blocks stored. All entries 
that follow this FLET entry are pushed to the right 
by the size of one entry (3 words). 



UPDCM Subroutine 

This subroutine is executed whenever the STORE op- 
eration is to the User Area (except STOREMOD). It 
updates DOOM as follows: 

• Clears the Working Storage disk block count 
(#WSCT) of the TO drive in DCOM to zero. 

• Puts the disk block address of the end of the User 
Area (plus one disk block) into #ANDU in DCOM 
(in the entry in the drive -dependent parameter for 
the cartridge affected by the STORE operation). 

• Determines if the STORE operation is in Tempo- 
rary mode; does not put the disk block address 
of the end of the User Area into #BNDU of the TO 
drive during Temporary mode. 

• Updates the base file-protection address in DCOM 
(#FPAD) of the TO drive if the STORE operation 
is not during Temporary mode. 
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SNOFF Subroutine 

This subroutine is executed by all STORE operations. 
It terminates the STORE function as follows. 

• Moves the cartridge ID of the TO drive into the 
STORE terminal message. 

• Moves the disk block address where the data or 
program was stored into the STORE terminal 
message. 

• Moves the disk block count of the program or data 
into the STORE terminal message. 



Fixed Area is the buffer specified by SDBUF. It is 
one sector long if the core size is 4K; othervdse, 
it is seven sectors long. 

LET/FLET sectors are read and written one at 
a time, using the buffer specified by LETAR. 

When STORE reads binary records, it reads them 
into the area specified by THIS and NEXT. IJ: storing 
from cards, double buffering is used; THIS and NEXT 
are each considered to be 80 words long. If storing 
from paper tape, double buffering is not used; THIS 
and NEXT are considered to be an extended buffer, 
large enough to contain the maximum length record 
(108 words). 



• Uses the PRINT subroutine in DUPCO to print 
the terminal message. 

• Exits to the REST subroutine in DUPCO to clear 
the CATCO switches and restore DCTL if it is not 
in core storage. 



Errors Detected 

The following DUP errors are detected in STORE: 
D30, D31, D33, D90, and D93. 



ST700 Subroutine 

This subroutine is executed when performing a 
STORE MOD operation. It performs the following 
functions: 

• Computes the location within the User Area or 
Fixed Area sector at which the old version of the 
program begins. 

• Moves the new version of the program into the 
buffer to replace the old version, one word at a 
time. 

When an output sector is completed, it is written 
to the User Area or Fixed Area. The next User or 
Fixed Area sector is then read into the buffer to 
allow the word by word replacement to continue. 

The entire STOREMOD process is under control 
of the disk block count. The number of disk blocks 
replaced by the new version is determined by the 
disk block count of the old version, as found in LET/ 
FLET. STOREMOD does not alter this count. 

Buffers Used By STORE 

The disk buffer used for moving data or programs 
between Working Storage and the User Area or the 



FILEQ 

This phase of DUP is read into core storage by DCTL 
when the Count field (27-30) of the STORECI control 
record is non-zero. The function of FILEQ is to 
process the records following the STORECI control 
record and place the processed records into the 
SCRA for use by the Core Load Builder. Four tj^Des 
of STORECI control records are processed by this 
phase; *LOCAL, *NOCAL, *FILES, and G2250. 
FILEQ consists of the subroutines LCOOO, FROOO, 
GR200, and LF200. 



LCOOO 

This subroutine processes *LOCAL and *NOCAL 
control records, A mainline name is not specified 
on these records when they follow the STORECI 
control record; an error is indicated if one is speci- 
fied. Thus, the mainline name is set to blanks. All 
subroutine names specified in ''T/OCAL or ''T^IOCAL 
control records are converted to name code. 

LOCAL/NOCAL information for the core load 
to be built is stored in the SCRA. 

The format of LOCAL/NOCAL information in the 
SCRA is shown on page 22. 
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FROOO 



DDUMP 



This subroutine processes *FILES control records. 
File numbers are converted to binary. File names , 
if specified, are converted to name code; if unspeci- 
fied, the name is set to blanks. Cartridge IDs, if 
specified, are converted to binary; if unspecified, 
the ID is set to zeros. 

FILES information for the core load to be built 
is stored in the SCRA. 

The format of FILES information in the SCRA is 
shown on page 22. 



The DDUMP phase of DUP resides in part of the 
first or fifth 4K block of core storage, depending 
on whether the core size is 4K, 8K, 16K, or 32K. 
Only on a 32K machine does the DDUMP phase 
reside in the fifth 4K block of core storage. 
This phase is read into core storage when 
DCTL recognizes a DUMP control record. This 
phase uses all the subroutines in DUPCO that are 
needed, e, g, , disk reading and writing. 



GROOO 

This subroutine processes *G2250 records. A main- 
line name is not specified on these records when they 
follow the STORE CI control record. An error is 
indicated if a mainline name is specified. Thus , the 
mainline name is set to blanks. All G2250 sub- 
routine names determined from G2250 control record 
information are converted to name code. 

G2250 information for the core load to be built is 
stored in sector 6 of the SCRA. The format of G2250 
information in the SCRA is shown below. 



DDOOO 

This is the mainline of the DDUMP phase. It 
initializes the parameters of the subroutines, sets 
up the lOAR headers for the areas used for input/ 
output, and directs the execution of the subroutines. 

XGOOO 



This subroutine gets the words from the disk and, if 
the program is in DSF, the words are typed as to 
data, header indicator, or last data word. 



Word Count, one word specifying the number of words one 

G2250 information record occupies In the G2250 
sector, Including the word count. A word count 
Is included for each G2250 record. 
Mainline Name, two words of blanks in name code format. 



GCOM, two words in name code format specifying 
the graphic communication control block. 



Subroutine Name, two words In name code 
format . 

-1 Indicates 
word following 
lost entry | 

Subroutine Names 1 



Sector 
6 



The following subroutine names will be entered in the G2250 
sector of the SCRA if they were specified in the G2250 Informa- 
tion record. 

GCHAR or GUPER, the character stroke table. 

GSPT2, the verification direct entry subroutine. 

GSP06, the scissoring subroutine. 

GSP05, the ICA area expansion subroutine. 

GSPT!, the indexed entity scan subroutine. 

Note: As each subroutine is specified, it will occupy the next 
available position . 



LF200 

This subroutine provides the exit for FILEQ. When 
all *LOCAL, *NOCAL, *FILES, and G2250 control 
records have been processed, DCTL is read into 
core storage using the GET subroutine in DUPCO 
with the execute switch (XEQSW) set. DCTL begins 
the processing of the header of the mainline program 
that is to be stored in core image format. 

Buffers Used By FILEQ 

The buffer used for writing the processed control 
records to the SCRA is referred to as SCRAB. 
SCRAB is another name for BUF7, known indirectly 
through CATCO as SDBUF. 

Errors Detected 



The following DUP errors are detected in FILEQ: 
D41, D42, D43, D44, D45, D46, D47, and D48. 
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xwooo 



Errors Detected 



This subroutine places the data or program in 
Working Storage. 

XFOOO 

This subroutine formats the data into a system or 
data record to be punched. 

XPOOO 

This subroutine checksums, unpacks, and punches 
the record formatted by XFOOO on either cards or 
paper tape as specified. 

XLOOO 



This subroutine prints the data or program on tlie 
principal print device. 

XCOOO 

This subroutine clears the print area as directed 
by XLOOO. 

XIOOO 

This subroutine inserts the data or program words 
into the print area as directed by XLOOO. 

XEOOO 



This subroutine converts from packed EBCDIC to 
card code and places the data in a buffer for punch- 
ing. 



Buffers Used By DDUMP 

PEBUF — 61-word buffer to hold printed output. 

THIS — 81-word buffer to read in cards to check 
to see if they are blank. 

NEXT — 111-word buffer from which the output 
is punched. 



The following DUP error is detected in DDUMP: D50. 
DUMPLETA)UMPFLET 

This phase of DUP prints the contents of the Location 
Equivalence Table (LET) and/or the Fixed Area Lo- 
cation Equivalence Table (FLET) in an easily readable 
format on the principal print device. The extent of 
the dump depends on the setting of the following three 
DUPCO switches: 

LETSW . When this switch is positive, both LET 
and FLET are to be dumped; when negative, only 
FLET is dumped. 

DRIVE. When this switch is negative, LIST and/ 
or FLET from all cartridges are dumped; virhen not 
negative, LET and/or FLET is dumped from the 
cartridge specified only. 

NAMSW . If this switch is on, only the LET of 
FLET entry corresponding to the name in #NAME 
is printed. 

One sector of LET/FLET is printed per page. 
Each sector of LET/FLET dumped is preceded by 
two lines of header information. The first header 
line contains the contents of the following locations 
from COMMA /DCOM: #CIDN, $FPAD, #FPAD, 
#CIBA, #ULET, and #FLET. 

Following this line is a second header line that 
reflects information concerning the LET/FLET 
sector being dumped, i.e., the 

sector number (SCTR NO. ), 

User Area/Fixed Area (UA/FXA) , 

words available (WORDS AVAIL), and 

chain address (CHAIN ADR). 

Following these two header lines are the LET/ 
FLET entries. Twenty-one lines of entries are 
printed, made up of five entries per line but se- 
quenced by column. 

Once LET and/or FLET have been dumped ac- 
cording to LETSW, DRIVE, and NAMSW, DUMP LET 
prints a terminal message and exits to the E.EST 
subroutine in DUPCO. 

Buffers Used By DUMPLET/DUMPFLET 



LETAR — 322-word buffer to be used to get data 
from disk. 



PRNTA — 61-word buffer in UPCOR used for 
printing a line. 



SDBUF -- 320-word buffer to be used to place data 
in Working Storage. 



LETAR — 322-word buffer in UPCOR used for 
reading a sector of LET/FLET. 
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DELETE 

The DELETE phase removes programs and data 
files from either the User or Fixed Area, along 
with their corresponding LET/FLET entries. 

DCTL passes control to DELETE after having 
read a DELETE control record and having found 
the specified entry in LET/FLET. This sector 
of LET/FLET is left in the buffer LETAR with 
DELSW pointing to the location previous to the 
specified entry. DBADR is set with the User or 
Fixed Area disk block address of the program to 
be deleted. 

DELETE compresses LET/FLET by the number 
of words made available by the deleted entry. If 
the deletion is to be from the Fixed Area, the 
specified entry is replaced by a IDUMY entry of 
the same size. If there are adjacent IDUMY en- 
tries, they are combined to form a single IDUMY 
entry and FLET is compressed by 0, 3, or 6 words 
depending upon whether there are 0, 1, or 2 adjacent 
IDUMY entries. 

If the deletion is to be from the User Area, the 
amount of the compression of LET is dependent 
upon the number of words made available by the 
specified LET entry. This number varies since 
DSF programs with multiple entries may be stored 
in the User Area. As in the case of FLET, adjacent 
IDUMY entries may cause additional compression 
of 3 or 6 words. 

The packing of LET/FLET begins in the sector 
containing the entry to be deleted and continues 
throughout the remainder of LET/FLET. Since 
multiple entries must reside in a single LET sector, 
they are moved across a LET sector boundary only 
when room exists in the previous sector for all the 
entry points. LET is packed until a DCI program 
or data file is encountered. The IDUMY entry, v/hich 
normally precedes this entry, is updated to reflect 
the number of disk blocks required to make the DCI 
program or data file start at a sector boundary after 
it is moved the appropriate number of sectors. If 
a IDUMY entry did not precede the DCI program or 
data file , one of the appropriate size is inserted to 
sectorize the DCI program or data file. The shrink- 
age or packing continues until the last IDUMY entry 
of LET is found. 

Packing of the User Area begins with the sector 
containing the program to be deleted. Subsequent 
DSF programs are shifted by disk blocks into the 



area made available until a DCI program or data 
file is encountered. If the User Area is being 
packed by an amount equal to or greater than one 
sector, the remaining programs are moved by 
whole sectors. 

After all required disk movement of the specified 
DELETE operation is complete, DELETE prints a 
terminal message to signify completion. 

Buffers Used By DELETE 

LETAR ~ used for storage of LET/FLET sectors. 
Up to 2 sectors may reside in core storage with 
the addresses of the first word of each saved in 
DE918 andDE919. 

SDBUF — used to process the User Area. Two or 
eight sectors of core storage are used depending 
upon core size. 

Errors Detected 

The following DUP errors are detected in DELETE: 
D70, D71, andD72. 



DEFINE 

To initially provide a Fixed Area on a system 
cartridge or to increase its size, the Core Image 
Buffer (CIB), LET, and the User Area are moved 
toward and partly into Working Storage. Working 
Storage is reduced by the increased size of the 
Fixed Area. The sector address of the CIB is 
updated in DCOM and the Resident Image on the 
updated system cartridge. If a Fixed Area is 
defined on a non-system cartridge, LET is not 
shifted because it precedes the Fixed Area sector 
address. 

To decrease the size of the Fixed Area on a 
system cartridge, the Core Image Buffer (CIB), 
LET, and the User Area are moved away from 
Working Storage and into a part of the existing 
Fixed Area. Working Storage is increased by the 
amount of the decrease in the size of the Fixed Area. 
DCOM and the Resident Image on the updated 
system cartridge are updated with the new sector 
address of the CIB. If the size of the Fixed Area 
Is decreased on a non-system cartridge, LET is not 
shifted, as it precedes the Fixed Area sector address. 
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To delete the FORTRAN Compiler, the RPG 
Compiler and/or the Assembler Program from a 
system cartridge, all succeeding programs and 
special purpose areas on the disk are moved away 
from Working Storage toward the voided area. 
Working Storage is increased by the size of the 
voided program(s). 

Once a program has been eliminated, it cannot 
be restored without an initial load of the disk cart- 
ridge, including all the programs in the User or 
Fixed Area. 

DEFINE determines if a system or non-system 
cartridge is being processed by testing DCOM for 
the presence of the version and modification level 
number, which is zero on non- system cartridges. 

If the FORTRAN Compiler and/or the Assembler 
Program or the RPG Compiler is deleted, all SLET 
entries for that program(s) are cleared to zero. 
SLET is also revised to reflect the new sector ad- 
dresses of those programs that are shifted. 

All entries in the Reload Table indicating SLET 
lookups requested by the deleted program(s) are 
removed and the remaining Reload Table entries 
are packed together. The revised Reload Table is 
then reprocessed to generate new sector addresses 
where necessary in the monitor system programs. 



Buffers Used By DEFINE 
LETAR — a disk I/O buffer. 
SDBUF — a disk I/O buffer. 



Switches and Indicators 

FORSW — non-zero when the FORTI^AN Compiler 
is to be deleted. 

ASMSW — non-zero when the Assembler Program 
is to be deleted. 

FXSW — non-zero when the Fixed Area is to be 
defined or modified. 

DATSW — indicates the disk block adjustment of 
the Fixed Area. 

NEGSW — non-zero when the Fixed Area is to be 
decreased. 

RPGSW ~ non-zero when the RPG Compiler 
is to be deleted 



Errors Detected 



The following DUP errors are detected in DEFINE; 
D15, D70, D80, D81, D82, D83. D84, D85, D85 
and D87. 



DEXIT 

This phase is brought into core storage and executed 
by the LEAVE subroutine in DUPCO, DEXIT per- 
forms the following functions: 

• Prints DUP error messages 

• Traps monitor control records and exits to tlie 
Supervisor 

• Links to the System Library program ADRWS 
for DWADR 

• Passes control to the Core Load Builder for 
STORECI 

• Returns control to MODIF when a modification 
includes changes to the System Library. 

• Exits to the Supervisor upon recognition of the 
INTERRUPT REQUEST key interrupt. 

DEXIT is called with an indirect branch via 
LEAVE. Following the branch instruction is a 
parameter that specifies the function to be per- 
formed by DEXIT. 

If the parameter is a positive integer, DEXIT 
prints a DUP error message. The message printed 
corresponds to the integer parameter. 

If the parameter is zero, DEXIT moves a trstpped 
monitor control record from the buffer CRBUF to 
the Supervisor buffer @SBFR. $CTSW in COMMA 
is set to minus one (/FFFF) to indicate to the Super- 
visor that the next monitor control record has already 
been read. 

DEXIT checks to see if control should be returned 
to the System Maintenance program, MODIF. If 
#MDr2 in DCOM is non-zero, DEXIT reads DUP 
phase 18 into core storage and transfers to it. This 
phase contains part of MODIF, written on this sector 
when MODIF was last in control. In this manner 
MODIF is able to use DUP to delete an old version 
of a program or subroutine from the System Litirary, 
and then use DUP to store the new version. 
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If control is not given to MODIF, DEXIT trans- 
fers to $EXIT in the Skeleton Supervisor. 

If the parameter is minus two (-2), the interrupt 
caused by the INTERRUPT REQUEST key is recog- 
nized, causing the Supervisor to read records from 
the principal input device until the next JOB monitor 
control record is encountered. DEXIT exits via the 
$DUMP entry point in the Skeleton Supervisor with 
a dump format code of minus two (-2). 

If the parameter is minus three (-3), DEXIT 
transfers control to the Core Load Builder so that 
the DSF program currently in Working Storage can 
be converted to core image format for the STORE CI 
operation. Before DEXIT transfers control to phase 
O/l of the Core Load Builder, the area in core 
storage bounded by lOADR and the end of core stor- 
age is written to DUP phase 13 (UPCOR). DUP 
phase 17 (PRE CI) restores this area to core stor- 
age after the DCI program has been moved to the 
User or Fixed Area. 

If the parameter is minus four (-4), DEXIT 
initiates a CALL LINK to the System Library pro- 
gram ADRWS to complete the DUP DWADR oper- 
ation. DEXll' enters the Skeleton Supervisor at 
the $LINK entry point with the name ADRWS speci- 
fied in name code. The ADRWS program initializes 
the Working Storage sector addresses on the 
cartridge whose logical drive code is foimd in 
#TODR in DCOM. ADRWS causes control to be 
returned to DUP by placing a dummy DUP moni- 
tor control record into the Supervisor buffer @SBFR 
before returning control to the Skeleton Supervisor 
via the $EXIT entry point. 

All DEXIT functions write DUP's DCOM buffer to 
sector @DCOM on the master cartridge before 
exiting. 

Buffers Used By DEXIT 

CATCO — used to write DCOM on sector ©DCOM of 
the master cartridge. The buffer size is 112 
words. 

lOADR — used to write UPCOR on DUP phase 13. 
The buffer size is approximately 1528 words. 

B — used to read phase 0/1 of the Core Load 
Builder into core storage. This read is exe- 
cuted from core locations 32-39. Approximately 
480 words are read. 



@SBFR - /0140 — used to read the MODIF phase 
(DUP phase 18) into core storage. This read 
is executed from core locations $SCAN-$SCAN+7. 
The number of words read is 320. 



2501/1442 CARD INTERFACE (CFACE) 

This phase serves as an interface between DUP 
programs and the system device subroutine for 
card I/O. CFACE consists of four subroutines; 
they are listed below along with their primary 
functions: 

GETHO — Reads a card and converts from IBM 
Card Code to unpacked EBCDIC. 

GETBI — Reads a binary card. 

PACKB — Converts from card binary (1 column 
per word) to packed binary (4 columns per 3 
words), with checksumming. 



PCHBI 



Punches a card from an 80-word buffer. 



The phase has four entry points, one correspond- 
ing to each of the functions listed above. Each sub- 
routine is entered by an indirect BSI instruction to 
the symbolic name listed above. Upon entry to each 
subroutine, the registers and status conditions of 
the calling program are saved using the ENTER 
subroutine in DUPCO. The PHEDM subroutine in 
DUPCO records the phase identification of CFACE. 

Upon completion of the required function and 
prior to returning to the calling program, the orig- 
inal conditions of the calling program are restored 
using the RTURN subroutine in DUPCO. 

GETHO 

This subroutine is used by DCTL to read DUP control 
records. The system device subroutine for the 2501 
or the 1442 is used to read the card. An 81-word 
buffer specified by CRBUF in CATCO is used for card 
input. GETHO examines each card for either // in 
columns 1 and 2 or * in column 1. If this informa- 
tion is not found in the first two columns of the card, 
the subroutine returns immediately to DCTL, In 
this way , invalid records can be bypassed at maximum 
card speed without using a double -buffering technique. 
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If // or * is found in column 1 , the subroutine 
loops till the whole card is read, then converts it 
from IBM Card Code to unpacked EBCDIC using 
the system conversion subroutine CDCNV. 

GETHO packs the unpacked EBCDIC data from 
the 81 -word input buffer to a 41 -word packed 
buffer specified by PEBUF. 

The subroutine then exits to DCTL. 



GETBI 

This subroutine reads a binary card into an 81-word 
buffer specified by THIS, The system device sub- 
routine for the 2501 or 1442 is used to read the card. 



PACKB 

This subroutine converts card binary (one word 
per column) in an 81-word input buffer (NEXT) 
to packed binary (four columns per three words) 
in a 55-word output buffer (NEXT). The packed 
data overlays the unpacked data. 

After packing, the checksum of the 54 words 
is verified. If the checksum is correct, the sub- 
routine returns to the calling program. A check- 
sum error causes an exit to LEAVE in DUPCO 
with an error parameter. 



PCHBI 

This subroutine, using the system flevice subrou- 
tine for the 1442, punches a card from an 81-word 
buffer specified by NEXT. 



PEBUF — 41-word buffer used to hold the packed 
EBCDIC control record, converted from the 
unpacked EBCDIC in CRBUF. 



KEYBOARD INTERFACE (KFACE) 

KFACE serves as an interface for DUP prog;rams 
when the principal input device is the Keyboard. 
KFACE is used by DCTL to read DUP control 
records from the Keyboard. 

The PHIDM subroutine in DUPCO is used to 
record the KFACE phase identification. The ENTER 
subroutine in DUPCO is used to save the conditions 
of the calling program. A control record of up to 
80 characters is read and converted from Keyboard 
code to unpacked EBCDIC by the system device 
subroutine for the Keyboard. 

An EOF character causes the termination of 
input and the filling of the remainder of the buffer 
with blanks or a word count of 80, whicheveif is first. 

The record is read into the 81-word buffeir speci- 
fied by CRBUF in CATCO in unpacked EBCDIC, 
then converted to packed EBCDIC and storedl in the 
41-word buffer specified by PEBUF in CATCO. The 
RTURN subroutine in DUPCO is used to restore the 
conditions of the calling program. 



Buffers Used By KFACE 

CRBUF — 81-word input buffer used to hold a 
control record in unpacked EBCDIC. 

PEBUF — 41 -word buffer used to hold the packed 
EBCDIC control record, converted from the 
unpacked EBCDIC in CRBUF. 



Buffers Used By CFACE 

THIS — 81-word input buffer used by GETBI for 
reading binary records. 

NEXT — 81-word buffer used by PACKB for pack- 
ing binary records (4 columns per 3 words). 
The packed data overlays the unpacked data. 
Also used by PCHBI for outputting to the punch. 

CRBUF — 81-word input buffer used by GETHO 
for reading control records in unpacked 
EBCDIC. 



1134/1055 PAPER TAPE INTERFACE (PEACE) 

This phase serves as an interface between DUP 
programs and the system device subroutine for 
paper tape I/O. PFACE consists of four sularou- 
tines; they are listed below along with their primary 
functions: 

GETHO — Reads a paper tape record punched in 
PTTC/8 code and converts it to both unpacked 
and packed EBCDIC. 

GETBI — Reads a binary paper tape record, 
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PACKB — Converts from unpacked binary (two 
frames per word) to packed binary, with 
checksumming. 

PCHBI — Punches a binary paper tape record. 

The phase has four entry points, one corre- 
sponding to each of the functions listed above. 
Each subroutine is entered by an indirect BSI 
instruction to the sjrmbollc name listed above. 
Upon entry to each subroutine, the registers 
and status conditions are saved using the ENTER 
subroutine in DUPCO. Another DUPCO subrou- 
tine, PHIDM, modifies the phase identification 
with the PFACE identification. 

Upon completion of the requested function and 
prior to exiting to the calling program, the orig- 
inal conditions of the calling program are restored 
using the RTURN subroutine in DUPCO. 



GETHO 



The word count preceding each binary paper tape 
record is pimched into a single frame, and is read 
separately from the body of the record. After the 
word coimt is read, it is checked for validity. If it is 
valid, it is used to read the record that follows. 
If it is not valid, the next frame is read to deter- 
mine if it is a word count. In this way, delete 
characters and other special codes may appear 
between binary records or between a control record 
and the first binary record. 



PACKB 

This subroutine packs the binary record as read by 
GETBI into normal binary data. The packed data 
overlays the unpacked data. 

After packing, the checksum of the words read 
is verified. If the checksum is correct, the sub- 
routine returns to the calling program. A check- 
sum error causes an exit to LEAVE in DUPCO with 
an error parameter. 



This subroutine is used by DCTL to read DUP 
control records. The system device subroutine 
for the 1134/1055 is used to read the record. An 
81-word buffer specified by CRBUF In CATCO is 
used to contain each record read. All conversion 
from PTTC/8 code to EBCDIC is performed by 
the system device subroutine. When the control 
record has been read, it is converted to packed 
EBCDIC within the 41-word buffer specified by 
PEBUF in CATCO, The subroutine then exits 
to DCTL. 



GETBI 

This subroutine reads a binary paper tape record 
into a 109-word buffer specified by THIS in CATCO. 
The system device subroutine for the 1134/1055 is 
used to read the record. 

Note that THIS and NEXT are reversed for each 
record read when reading binary cards. When 
reading paper tape DCTL places the address of the 
buffer having the lowest core address into THIS, 
since the reading of binary paper tape records 
requires an extended buffer. The system device 
subroutine reads each frame (eight bits of data) 
into one word of the buffer. 



PCHBI 

This subroutine uses the system device subroutine 
for the 1134/1055 to punch a binary paper tape 
record from a 109-word buffer specified by NEXT. 



Buffers Used By PFACE 

THIS ~ 109-word buffer used by GETBI for reading 
binary paper tape records. 

The two buffers THIS and NEXT, used for 
double buffering when reading binary cards , 
constitute one extended buffer when reading 
binary paper tape records. Double buffering 
is not used for binary paper tape records. 

NEXT — 109-word buffer used by PCHBI for punch- 
ing binary paper tape records, consisting of 
THIS and NEXT taken as consecutive buffers. 

CRBUF — 81-word input buffer used to hold a control 
record in unpacked EBCDIC. 

PEBUF — 41 -word buffer used to hold the packed 
EBCDIC control record, converted from the 
unpacked EBCDIC in CRBUF. 
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PRECI 



PCIOO 



This phase is read into core storage by the Core 
Load Builder after a core load has been built for 
a STORECI function. This phase resides in the 
DUP overlay area. It moves the core load to the 
User Area or Fixed Area before restoring DUP 
phase 13 (UPCOR). Since UPCOR is not available 
to PRECI, copies of the DUPCO subroutines PHID, 
PHIDM, GET, and PUT have been incorporated 
into PRECI. 

PRECI is composed of five sections or logical 
parts — PCOOO, PC040, PCIOO, PC180, and PC240. 



PCOOO 

This is the entry point to PRECI from the Core 
Load Builder. DCOM from the master cartridge 
is read into PRE CI' s work area, as is the core 
image header from the CIB. If the inhibit DUP 
function switch ($NDUP) has not been set by the 
Core Load Builder, PRECI proceeds. Otherwise, 
the PC240 section is used to exit to DCTL after indi- 
cating an error has occurred. 

DCOM is used to determine the logical drive 
code of the destination drive, as well as the start- 
ing sector address to which the program is to be 
moved. From the core image header the total 
length of the core load in sectors is determined. 
A check is then made to determine if the program 
can be contained in the User Area or Fixed Area. 
If the core load is too large, the PC240 section is 
used to exit to DCTL after indicating an error has 
occurred. 



PC040 

This section moves LOCAL/SOCAL sectors (if 
any) from Working Storage to their position at the 
end of the core load after it has been moved to the 
User Area or Fixed Area. The Working Storage 
sector address from which the LOCALs/SOCALs 
are moved includes an adjustment for Working 
Storage files when they are present. LOCALs/ 
SOCALs are moved to the User or Fixed Area one 
sector at a time. The number of sectors required 
for Working Storage files and the number of LOCAL/ 
SOCAL sectors are obtained from the core image 
header. 



This section moves that part of the core load (in- 
cluding the core image header) that resides in the 
CIB to its destination in the User Area or Fixed 
Area. The length of the program (in words) and 
the starting address of the core load are used to 
control the number of sectors moved from the CIB 
to the User Area or Fixed Area. The core image 
header also indicates if the core load exceedi3 the 
4K boundary; i.e. , the core load's load address 
plus the number of words in the core load produces 
a number greater than 4095. 

The core load residing in the CIB is moved to 
the User Area or Fixed Area four sectors at a time. 
This move continues until the CIB sector containing 
that part of the core load that resides at location 
4095 has been moved. 

PC180 



This section moves that part of the core load that 
resides in core storage above location 4095 to the 
User or Fixed Area. The last sector of the core 
load written to the User or Fixed Area from the 
CIB is read into core storage so as to be contiguous 
with the part of the core load residing in core, i. e. , 
above location 4095. The remainder of the core 
load, starting with the first word read into core 
storage from the User or Fixed Area, is then writ- 
ten to the User or Fixed Area, starting at the sector 
read into core storage. 

PC240 

This section restores DUP phase 13 (UPCOR) , 
DCTL (phase 2) , and then exits to DCTL. Before 
exiting to DCTL, however, termination data is 
placed in the DCOM buffer in CATCO, and in CATCO 
itself. The interrupt locations in low core storage 
are restored for DUP operation, and phase switches 
are cleared in order to ensure that DDUMP smd 
STORE are reloaded from disk. If any errors have 
been detected during PRECI operation, the DUP 
error message number is communicated bade to 
DCTL through CIERR in CATCO. 



Buffers Used By PRECI 

The disk I/O buffer used to move all parts of the 
core load to the User Area or Fixed Area is located 
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at BUF7. All references are direct, rather than 
indirect through SDBUF in CATCO, since UPCOR 
is not in core storage during the operation of PRE CI. 



DUP DIAGNOSTIC AIDS 



GENERAL 

DUP has provided a selective, dynamic dump of 
various core storage areas to facilitate problem 
analysis. The core dumps are under the control 
of column 35 of individual DUP control records. 
In general, to obtain a dump of a particular DUP 
phase, column 35 should contain the phase ID 
number of that phase. If column 35 contains 
zero, all DUP phases associated with the function 
named on the control record yield a core dump, 
starting with the execution of DCTL. The column 
35 codes and the corresponding DUP phase yielding 
core dumps are shown below. 



Code in column 35 



Phase(s) dumped 






All associated phases, si 




with DCTL 


2 


DCTL 


3 


STORE 


4 


FILEQ 


5 


DDUMP 


6 


DUMPLET 


7 


DELETE 


9 


DEXIT 



starting 



The core dumps include the following: 

Disk I/O Areas — The buffer area used for the 
disk I/O operation, including the area into 
which DUP phases are read, is dumped. The 
number of words dumped is dependent on the 
number of words read or written. 

Buffer Areas — The buffers between BUF4 and 
PRPNT are dumped in DCTL execution. This 
dump occurs when the LET search begins, 
when the LET search on one cartridge is 
complete and the next cartridge LET search 
begins, and before the required DUP phase 
(STORE, DUMP, or DELETE) is read. 



CATCO — This area of core storage is dumped in 
conjunction with any dump mentioned above. 

If a dump (or dumps) is desired during CCAT 
execution, the next to the last card (i. e. , the last 
type A card) of DUPCO should be removed before 
reloading this phase with a System Loader reload 
function. This change in DUPCO causes all possible 
core dumps within DUP to occur regardless of the 
contents of column 35 in any DUP control record. 

Core dumps are not allowed when the DEFINE or 
PRECI phase is in execution. The System Core 
Dump program uses the CIB to save the contents of 
core storage, and, since the CIB moves during a 
DEFINE operation and the core load to be stored by 
PRECI is in the CIB, serious errors occur if core 
dunaps are taken when executing either DEFINE or 
PRECI. 



PRECI 

When PRECI is entered from the Core Load Builder, 
the phase identification word in COMMA ($PHSE) is 
initially set to /OOll by the PHIDP subroutine in 
PRECI. As each subroutine of PRECI is executed, 
$PHSE is modified by PHIDP as follows: 



Subroutine in execution 


Contents of $PHSE 


PCG40 


/lOll 


PCIOO 


/2011 


PC180 


/3011 


PC240f 


/4011 



In addition, the second hexadecimal digit of $PHSE 
is modified by the IDMP subroutine in PRECI each 
time a disk I/O operation is performed. 



Digit 2 of $PHSE 



Disk I/O Operation 

Head from Disk 
Write to Disk 



STORE 



When STORE is entered from DUP control, the 
phase identification word in COMMA ($PHSE) is 
initially set to /0003 by the PHID subroutine in 
DUPCO. As each subroutine of STORE is exe- 
cuted, $PHSE is modified by PHID as follows: 
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Subroutine in execution Contents of $PnSE 



lows 

WDOOO 

DOLET 

UPDCM 

ST700 

SNOFF 



/1003 
/2003 
/3003 
/4003 
/5003 
/6003 



In addition, the second hexadecimal digit of 
the phase identification is modified by the PHEDM 



subroutine in DUPCO each time an I/O operation 
is performed. 



Digit 2 of $PHSE 

1 
2 
4 
5 



I/O operatio n 

Read from Disk 

Write to Disk 

Convert Binary to ElBCDIC 

Print Terminal Message 

Read Binary Cards 

Read Binary Paper Tape 
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SECTION 10. ASSEMBLER PROGRAM 



FLOWCHARTS 

General: ASMOl 

Phase 0: ASM02 

Phase 1: ASM03 

Phase lA: ASM04 

Phase 2: ASM 05 

Phase 2A: ASM06 

Phase 3: ASM 07 

Phase 4: ASM08 

Phase 5: ASM09 

Phase 6: ASMIO 

Phase 7: ASMll 

Phase 7A: ASM12 

Phase 8: ASM13 

Phase 8A: ASM14 

Phase 9: ASM15-ASM17 

Phase 10: ASM18 

Phase lOA: ASM19 

Phase 11: ASM20 

Phase 12: ASM21 

ERMSG: ASM22 

@ARCV ASM23 

@APCV: ASM24 

Phase 13: ASM25-ASM26 

The Assembler Program is designed to translate the 
statements of a source program written in 1130 
Assembler Language into a format that may be 
dumped and/or stored by DUP or executed directly 
from Working Storage. 

Basically, the functions of the Assembler are: 

1. Convert the mnemonic to machine language 
(except for Assembler control records). 

2. Assign addresses to statement labels. 

3. Insert the format and index roister bits into 
the instruction, if applicable. 

4. Convert the instruction operands to addresses 
or data. 



INTRODUCTION 



The Assembler Program is structurally divided into 
two parts, the resident portion and the overlay por- 
tion. The resident portion consists of the Assembler 
Communications Area (ASCOM), part of phase 0, 



phase 9, and the phase 9 Communications Area 
(PHSCO). All of the other phases are called into 
core storage as overlays. 

The Assembler Program is functionally divided , 
into two parts, pass 1 and pass 2. The source pro- 
gram is read and processed, one statement at a 
time, during each of the two passes. During pass 1, 
the source program is read into core storage from 
the principal l/O device. Unless the user specifies 
by control record that two-pass mode is in effect, 
the source program is stored on the disk, from 
which it is reentered for pass 2 processing. If two- 
pass mode is specified or required, the source pro- 
gram is reentered via the principal I/O device for 
pass 2 processing. (If a list deck or paper tape 
object program is desired, the assembly must be 
made in two-pass mode. ) 



PROGRAM OPERATION 

When the Monitor Control Record Analyzer detects 
an ASM monitor control record, it reads the first 
sector of the Assembler Program (phase 0) into 
core storage and transfers control to it. 

Phase reads into core storage all the subrou- 
tines required during assembly processing for I/O, 
and phase 9 . The word counts and sector addresses 
of all the buffers and major overlay phases are init- 
ialized in ASCOM and in phase 9, and the boundary 
conditions are set for the Symbol Table. Phase 1 
is then fetched and control is passed to it. 

Phase 1 reads and analyzes control records, set- 
ting the appropriate switches in ASCOM for the options 
specified. Upon detection of the first non-control 
record, phase lA is fetched and given control. 

Phase lA initializes the core addresses for the 
buffers, then fetches and transfers control to phase 
2 to start statement processing. 

Statement processing is performed by an op code 
search in phase 9 and a transfer through a branch 
table (that precedes every major overlay) to the 
overlay phase currently in core storage. If the re- 
quired overlay phase is in core storage, execution 
of the phase proceeds. If it is not in core storage, 
the branch table causes a return to phase 9 to fetch 
the required overlay phase. The op code search is 
performed again and control is passed to the overlay 
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phase. When the overlay phase completes the nec- 
essaxy processing, another record is read and the 
entire process is repeated. 

All overlays exit by branching to either the 
LDLBL or the PALBL subroutines Within phase 9 and 
then to STRT9 (the op code search), A branch is 
taken to LDLBL when the statement just processed 
is permitted to have a label. A branch is taken to 
PALBL when a label is not permitted or is to be ig- 
nored. Both LDLBL and PALBL branch to the 
RDCRD subroutine (within phase 9) to read the next 
record just prior to their return to the overlay phase 
that called them. 



ASSEMBLER COMMUNICATIONS AREA 

The Communications Area (ASCOM) consists of all 
the indicators and switches referenced by more than 
one phase of the Assembler Program. All communi- 
cation between phases is done through ASCOM. 
ASCOM resides in core storage foUciwing DISKZ and 
preceding the Overlay Area. 

Refer to the program listings for details regarding 
the contents of ASCOM. 



OVERLAY AREA 

The Overlay Area is the area in core storage into 
which the statement processing (overlay) phases are 
loaded as required. Phase is initially loaded into 
this area by the Monitor Control Record Analyzer 
(see Section 6. Supervisor) . Phaseis 1, lA, and 2 
are sequentially loaded into this area at the start of 
passes 1 and 2. Phases 2A, 5, 6, 7, 7A, 8, 8A, 13, 
@ARCV, and @APCV are loaded into this area during 
passes 1 and 2 as they are required to process 
specific mnemonics and constants, to handle output 
options, etc. Phase 12 is loaded into this area when 
the END statement is encountered in passes 1 and 2. 
Phase 4 is loaded into this area at the completion of 
pass 2. Phases 3, 9, 10, lOA, 11, and ERMSG 
are not loaded into the Overlay Area, 

The Overlay Area resides in core storage follow- 
ing ASCOM and preceding phase 9. 

SYMBOL TABLE 



As the source program is read and processed in 
pass 1, the Symbol Table is built. An entry is made 



in the Symbol Table for each valid symbol d(2fined 
in the source program. Each entry in the Symbol 
Table consists of three words. The first word con- 
tains the value of the symbol. Words 2 and 3 contain 
the symbol itself in name code. The following 
example shows the conversion of the symbol 'START' 
to name code for a Symbol Table entry: 



Symbol Table Entfy 



Mulfiply-defined IncJIcc 
R«locatlon moda Indict 



|0,0|1 ,Q|0,0[1 ,0 ] ' | 0|0.0 | ' | ' | 0.0|0,0|0.' 1°,' I' .°l°i'l'i°l°.°l'.M 



Input EBCDIC 

Character (hexadecimal) 



EBCDIC 
(binary) 



MMO 0010 

llllO 0011 

II 00 0001 

n;oi 1001 

III 10 0011 



*Digit I varies depending on the setiirtgs of the Relocatic 
Mulliply-defltifld Indicators. 



The Symbol Table is built starting at the liigh- 
addressed end of core storage. Entries are added 
to the Symbol Table (see below) until its lower limit, 
the end of the principal print device subroutine, is 
reached. If symbols are added to the Symbol Table 
after the in-core Symbol Table has been filled (i. e. , 
the lower limit has been reached), the overfliow 
Symbol Table is saved, one sector at a time, in 
Working Storage on the disk. Note that Symbol 
Table overflow is possible only if the Assembler 
control record *OVERFLOW SECTORS reserving 
the required sectors on disk is present in the 
source program; otherwise, the assembly is ter- 
minated at the point of Symbol Table overflow. 



Third Enfry Second Entry 



First Entry 



Symbol 

Value SyiTibol Name 



J I I I L. 



Low 
Core 



High 
Core 



As the source program is again read and proc- 
essed in pass 2, the Symbol Table is searched each 
time a reference to a symbol is encountered. The 
in-core Symbol Table is searched first. If the sym- 
bol is not found in the in-core Symbol Table and 
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Symbol Table overflow has been written on disk, 
Phase lOA is fetched into core storage to perform 
the search of the overflow sectors. 

A binary search technique is used in the Symbol 
Table search. 



INTERMEDIATE I/O 



During pass 1 of an assembly made in one-pass 
mode the source program statements are saved on 
disk for input to pass 2. Each source statement is 
saved starting at column 21 and ending with the 
rightmost non-blank column. As saved on disk each 
statement consists of a prefix word containing the 
number of words up to and including the prefix word 
for the following statement and the source statement 
packed two EBCDIC characters per word. 

The intermediate I/O is written on disk in Working 
Storage, starting at the first sector of Working 
Storage if no OVERFLOW SECTORS were specified, 
or starting at the first sector following the last see- 
tor of Symbol Table overflow. 

If a LIST Assembler control record is not present 
in the source program, comments statements are not 
saved in the intermediate I/O. 

During pass 2 of an assembly in one-pass mode, 
the intermediate I/O is read into core storage, one 
sector at a time. The source statements are unpacked 
and placed into the two I/O buffers such that they are 
indistinguishable from statements read from the prin- 
cipal I/O device. 



DOUBLE-BUFFERING 



All card, paper tape, or Keyboard input to the 
Assembler Program is double-buffered, with one 
exception; if the assembly is being made in two^)ass 
mode and the LIST DECK or LIST DECK E option has 
been specified, input during pass 2 is single-buffered 
to facilitate punchir^. 

The Assembler Program uses two 80-word buffers 
for double-buffering. While a record is being read 
into one buffer, the record in the other buffer is being 
converted and processed. 

Two locations in ASCOM are used to point to the 
two input buffers. One location (RDBFR) always con- 
tains the address of the buffer in which a record is 
being processed. The other location (RDBFR+1) 
always contains the address of\the buffer into which 
a record is being read. The RDCRD subroutine in 
phase 9, which interfaces with the principal I/O de- 
vice subroutine, exchanges the buffer addresses in 
RDBFR and RDBFR+1 after each record is read. 



PHASE DESCRIPTIONS 



PHASE 



Phase serves as the Assembler Program's loader. 
First, the Communications Area (ASCOM) is initial- 
ized by phase 0, and the required I/O device subrou- 
tines are fetched into core storage. Phase 9, the 
resident portion of the Assembler Program, is also 
fetched into core storage. Phase initializes the 
sector addresses and word counts of the various 
buffers utilized by the Assembler Program, and the 
boundary conditions for the System Symbol Table 
are established. Phase then fetches phase 1 into 
the overlay area and transfers control to it. 

The switches $NDUP and $NXEQ (in COMMA) are 
set non-zero to inhibit program execution and/or 
DUP functions In the event the assembly is termina- 
ted before completion. 

A Master Overlay Control subroutine (P0130), the 
subroutine interfacing with DISKZ (DISKl) , and the 
index register restoring subroutines (STXRS and 
LDXRS) are part of phase and remain in core 
storage during the entire assembly; the rest of phase 
is overlaid by phase 1. The Master Overlay Control 
subroutine performs the fetching of all the overlay 
phases and transfers control to the phase just read 
into core storage. 

PHASE 1 

Phase 1 reads, analyzes, and lists the Assembler 
control records. As each control record is analyzed, 
the various options specified by the control record 
are indicated in the Assembler Program's Communi- 
cations Area (ASCOM) . When the first nan-control- 
type record is encountered, phase 1 transfers to the 
Master Overlay Control subroutine to fetch phase lA 
and transfer control to it, 

PHASE lA 

Phase lA determines the address of the DSF buffer 
and initializes its lOAR header information in the 
Assembler Program's Communications Area 
(ASCOM). If the principal input device is either the 
1134 Paper Tape Reader or the Keyboard, the cur- 
rent record is moved over 20 positions to the right 
and the read- in address is set for position 21 of the 
I/O area. 

The number of overflow sectors assigned is 
checked for a maximum of 32 and the adjusted Work- 
ing Storage boundary for the disk output of the source 
and object programs is initialized. Phase lA then 
transfers control to the Master Overlay Control sub- 
routine to fetch phase 2, which begins statement 
processing. 
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PHASE 2 

Phase 2 handles the processing of all ENT, ISS, 
LIBR, ABS, EPR, SPR, ILS, and FILE statements. 
These statements are header mnemonics and must 
appear as the first non- control-type statements if 
they are included in the source program. For this 
reason phase 2 is the first overlay phase loaded into 
core storage to b^in statement processing. As each 
particular header mnemonic is processed, the nec- 
essary indicators are set in the Assembler Program's 
Communications Area (ASCOM). The ordering and 
compatibility of the various header mnemonics is 
checked, and the program header record information 
is built £Lnd saved in ASCOM, When a mnemonic not 
handled by phase 2 is detected, control is transferred 
to the op code search (STRT9) in phase 9. 



PHASE 2A 

Phase 2A is called into core storage when a FILE 
statement is detected by phase 2. Phase 2A is loaded 
by a flipper routine within phase 2 and overlays part 
of phase 2. Phase 2A obtains the file information 
from the FILE statement and builds the 7-word 
DEFINE FILE Table. At the completion of phase 2A 
processing, control is returned to the flipper routine 
in phase 2. The flipper routine restores the over- 
laid portion of phase 2 and branches to the op code 
search (STRT9) in phase 9. 



DCOM of the master cartridge, and DOOM of the 
cartridge defined to contain System Working Storage 
is updated as follows: 

• The first entiy point name of a Type 3, 4, 5, or 
6 subroutine is placed into the two words speci- 
fied by * NAME, in internal 1130 NAlilE code. 

• The execution address (or first entry point 
address) is placed in # ENTY. 

• The length of the program in disk blocks is 
placed in one word of the f WSCT quintuple 
corresponding to the logical drive that contains 
System Working Storage. 

• A zero is placed in one word of the f FMAT 
quintuple corresponding to the logical drive 
that contains System Working Storage to indi- 
cate that this Working Storage contains DSF. 



The last record read by the Assembler Program, 
the record following the END statement, is moved 
to the Supervisor buffer. 



In terminating the assembly, phase 4 prints four 
sign- off messages: 



PHASE 3 



Phase 3 is called into core storage as part 1 of tlie 
Assembler Program's exit to the Supervisor. Due 
to the size of phase 3, it overlays part of phase 9 
instead of the Overlay Area. 

The options of printing, punching, or saving the 
Symbol Table, as requested by the user on Assembler 
control records, are performed. At the completion 
of the Symbol Table options processing, phase 4 is 
fetched into core storage and control is transferred 
to it. 



1. The number of errors flagged in the assembly 

2. The number of symbols defined 

3. The number of overflow sectors specified 

4. The number of overflow sectors required 



Phase 4 then exits to the Skeleton Supervisor at the 
$EXIT entry point. 



PHASE 4 

Phase 4 performs the final processing for the Assem- 
bler Program and is called into core storage by 
phase 3. If overflow sectors were specified by 
Assembler control record, and if Symbol Table over- 
flow occurred in assembling the program, the object 
program, which is residing on the disk, is moved 
back to the sector boundary at the start of Working 
Storage. 



PHASE 5 



Phase 5 is called into core storage to process HDNG, 
ORG, BSS, BES, EQU, LIST, EJCT, or SPAC 
statements. These mnemonics are all non-imperative 
type statements requiring similar processing and 
are all grouped, therefore, in the same overlay 
phase. 
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PHASE 6 

Phase 6 processes all Imperative instructions and 
the DC statement. Since these mnemonics are used 
most frequently, the processing for them was 
grouped into one overlay phase. 



scans and evaluates the operand field, one character 
at a time. The conversion subroutine contains a 
table of packed Console Printer codes and a table of 
packed 1403 Printer codes. The conversion is per- 
formed using an algorithm. 

PHASE 9 



PHASE 7 

The two mnemonics processed by phase 7 are 
XI'LC and DEC, The conversion of the data in the 
statement operands to binary is handled in phase 
7A. Upon completion of the conversion, the data is 
formatted into the appropriate floating, fixed, or 
decimal format. 



PHASE 7A 

Phase 7A Is fetched into core storage by a flipper 
routine within phase 7. Phase 7A converts the man- 
tissa of a decimal integer, a fixed- or floating-point 
number to the binary equivalent. 

Phase 7A contains a scanning process that con- 
verts the operand to its binary equivalent and a post- 
scanning process that converts from powers of 10 
to powers of 2. 

The converted decimal data is saved in a buffer 
that is part of the flipper routine. When the conver- 
sion is completed, phase 7A returns to the flipper 
routine that restores phase 7 and transfers control 
to it. 



PHASE 8 

Phase 8 processes the LIBF, CALL, EXIT, LINK, 
EBC, DSA, and DN statements. The processing of 
the program linkii^ mnemonics — LIBF, CALL, 
EXIT and LINK — is combined with the processing 
of the data definition mnemonics — EBC, DSA, and 
DN — since otherwise they would constitute two 
small phases. This is satisfactory in terms of 
assembly time since EBC, DSA, and DN are not 
frequently used mnemonics. 



The phase 9 communications area (PHSCO) consists 
of the entry addresses of the common subroutines 
within phase 9. Immediately following PHSCO is the 
op code search. 

STRT9 

The op code obtained from the input record is saved 
in ASCOM. All possible op codes are resident in a 
table, which has for each op code a two-word indica- 
tor followed by a corresponding one-word machine 
language mnemonic. The op code search is per- 
formed by means of a table lookup. When a match 
is found, the corresponding machine language 
mnemonic is picked up and saved in OPCNT In 
ASCOM. Bits 13-15 of OPCNT form a branch table 
displacement. Using this displacement, an indirect 
branch is taken thru the table to the overlay prepared 
to process this op code. If the overlay is in core 
storage, execution proceeds. If it is not, a return 
is made to the op code search to fetch the required 
overlay phase into core storage. Control is then 
passed to the overlay and statement processing 
continues. 

If the search is terminated due to an invalid op 
code, it is determined whether the graphics phase 
is in core. If it is in core, control is passed to it, 
otherwise the instruction is processed as an invalid 
op code, 

BTHEX 

BTHEX is a binary-hexadecimal conversion subrou- 
tine. The binary data is entered in the accumulator 
left-justified, and the hexadecimal output is stored 
by index register 1. The nimiber of characters to be 
converted is in index roister 2. 



PHASE 8A 

Phase 8A processes the DMES statement. The DMES 
processing is performed by a scanning subroutine and 
a conversion subroutine. The scanning subroutine 



B4HEX 

The B4HEX subroutine is entered when four hexadec- 
imal output characters are desired. Index register 2 
is set to four and a branch is made to BTHEX. 
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SCAN 

The SCAN subroutine collects the elements of the 
operand field, character by character, performs 
any arithmetic functions necessary, and evaluates 
the operand. 



GTHDG 



to EBCDIC blanks, the input buffer addressess in 
ASCOM are exchanged, and a branch is made to the 
principal input device subroutine to read a record. 
Index roister 1 is set to point at the current input 
buffer and control is transferred back to the calling 
program. 

If the record previously read was a monitor con- 
trol record, phase 4 is fetched into core storage and 
control is transferred to it. 



GTHDG is the new page subroutine. Branches are 
made to the principal print subroutine to skip to 
channel 1, and print the headir^ as specified in the 
last HDNG statement encountered. 



LDLBL 

The LDLBL subroutine scans the label field of the 
statement. In pass 1, valid labels are added to the 
Symbol Table if they do not already appear there. 
The record is saved in the intermediate output buffer 
by INTl and a branch is made to read the next record 
(RDCRD). When the next record is in core, a check 
is made for the last card. If the last card has been 
detected, a branch is made to the principal conver- 
sion routine (CVADR), and control is returned to 
the calling program. 

In pass 2, the record is listed, if a listing has 
been requested or the record is ui error. The next 
record is fetched and control is returned to the 
calling program. 



PALBL 

The PALBL subroutine is a secondary entry to the 
LDLBL subroutine. PALBL is entered when a label 
is not permitted on a statement being processed. 



P9MVE 

The P9MVE subroutine moves the input record from 
the input buffer to the print buffer. As it mcjves the 
record, each character is checked for validiity. At 
the completion of the move, a branch is made to the 
principal print device subroutine to list the record 
and control is returned to the calling prc^ram. 



INTl 

INTl is the subroutine used in pass 1 to pacic the in- 
put record into two EBCDIC characters per word and 
save it in the intermediate output buffer. I^^T1 is 
overlaid by phase 11 for pass 2 processing. INT2 is 
the entry address for phase 11 during pass 2. 



PHASE 10 

Phase 10 consists of two subroutines: DTHDR and 
WRDFO. Phase 10 is fetched by phase 12 in pass 2 
processii^. Phase 10 overlays that section of phase 
9 dealing with the inserting of labels into the Symbol 
Table. 



DTHDR 



GETER 

A branch is made to GETER when an error occurs 
during the assembly. GETER fetches the error mes- 
sage phase (ERMSG) into the first disk buffer <BUFI). 



DTHDR enters a data header into the object program 
output in disk system format (DBF) when rectuired and 
completes the previous data header. 



WRDFO 



RDCRD 

RDCRD is the interface subroutine for the principal 
input device subroutine. The input buffer is cleared 



This subroutine writes one sector of disk sjstem for- 
mat (DSF) output when the DSF buffer is full. After the 
sector is written, those words past the 320th word of 
the buffer are moved back to the b^inning of the buffer. 
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In the event the buffer is not full and WRDFO is 
entered from phase 12 END statement processii^, 
the DSF buffer is written to Working Storage. 



PHASE lOA 

Phase lOA is fetched into core storage whenever 
necessary to handle Symbol Table overflow. When a 
symbol is to be added to an overflow sector in pass 1 
or when the overflow sectors are to be searched 
for a symbol in pass 2, phase lOA is called. Phase 
lOA overlays the INTl subroutine in phase 9 when 
called during pass 1; it overlays phase 11 (the INT2 
subroutine) when called in pass 2 of an assembly in 
one-pass mode. 



PHASE 11 

Phase 11 is fetched into core storage in pass 1 during 
phase 12 END statement processing if the assembly 
is in one-pass mode. The function of phase 11 is to 
read the source statements from the disk during 
pass 2. The source statements saved in pass 1 are 
read back onto core storage in pass 2 in such a way 
that they are indistinguishable from statements read 
from the principal I/O device. 



PHASE 12 

In pass 1, phase 12 builds tiie program header record 
in the DSF buffer. Several counters are reinitialized 
in ASCOM and the buffer pointers are reset for disk 
system format (DSF) output. Phase 10 is fetched 
into core storage. 

If the assembly is in two-pass mode, phase 1 is 
fetched and control is passed to it. If the assembly 
is in one-pass mode, the END statement is saved in 
the intermediate I/O buffer and the buffer is written 
to the disk. Phase 11 is fetched into core storage 
and the first sector of intermediate I/O is read into 
the first disk buffer (BUFI), A branch is then made 
to phase 11 to transfer the first statement from the 
intermediate I/O buffer to the source input buffer. 
Phase 1 is then fetched onto core storage and con- 
trol is transferred to it. 

In pass 2, phase 12 branches to DTHDR to build 
the end-of-program data header. If the source pro- 
gram is a type 3, 4, 5, 6, or 7 (not a mainline), an 
execution address of zero is saved in ASCOM and in 



the source statement buffer. If the source program 
is a type 1 or 2 (a mainline), the execution address, 
i. e. , the END statement operand, is saved in 
ASCOM and in the source statement buffer. The last 
sector of DSF output is written to the disk and the 
disk block count of the program is saved in ASCOM. 
Phase 12 then fetches phase 3 and transfers control 
to it. 

PHASE 13 

Phase 13 searches the master graphics op code table 
to determine if the mnemonic in the current input 
record is a valid 2250 mnemonic. If the mnemonic 
is not in the op code table, control passes to Phase 9 
to post the error code for an invalid mnemonic. 
When a 2250 mnemonic is found, a branch is made to 
G4040. 

G4040 determines if the Assembler is in pass 1 
or pass 2. During pass 1 the Location Assignment 
Counter (LAC) is incremented by 1 or 2, depending 
upon whether a 1- or 2-word order is being process- 
ed. During pass 2 a branch is made to G4070 which 
causes a branch to De maae to tne address contained 
in the fourth word of the op code table entry. This 
is the address of the section that will process the 
order. 

The format, tag, and operand fields of the order 
are tested. Control passes to the SCAN routine in 
phase 9 to evaluate any orders which contain 
operands. When control returns, the operands are 
tested to determine whether they are valid. If an 
error is encountered, control passes to ERFLG to 
post the error. The operand is put in the op code 
buffer and a branch is made to G4090 to transfer 
the contents of the op code buffer to the Disk System 
Format (DSF) buffer. G4090 passes control to 
B4HEX in Phase 9 to convert the contents of the 
op code buffer from binary to 4 hexadecimal charac- 
ters. When control returns it passes to DFOUT 
which moves the word to the DSF buffer. The LAC 
is incremented by one and the op code buffer is set 
to zero. Control passes to LDLBL to access the 
next record. 

ERMSG 

ERMSG is called by the GETER subroutine within 
phase 9 when an error occurs during the assembly 
process. It is loaded into the first disk buffer (BUFI). 
A list of error messages is contained within ERMSG. 
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Figure 14, panel 3 shows the layout of the con- 
tents of core storage during pass 2 of an assembly 
in two-pass mode. 



Figure 14, panel 4 shows the layout of the con- 
tents of core storage during pass 2 of an assemWy 
in one-pass mode. 
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Figure 14, Core Layout Duriag Assembler Program Operation 
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SECTION 11. FORTRAN COMPILER 



FLOWCHARTS 


General: 


FOROl 


Phase 1: 


FOR02 
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The FORTRAN Compiler translates source programs 
written in the 1130 Basic FORTRAN IV Language into 
machine language object programs. The compiler 
also provides for the calling of the necessary arith- 
metic, function, conversion, and input/output sub- 
routines during the execution of the object program. 

GENERAL COMPILER DESCRIPTION 



The FORTRAN Compiler consists of 27 sequentially 
executed phases: 

Phases 1 and 2 are initialization and control phases, 
processing the control records and buildii^ the 
initial statement string. 



Phases 3 thru 10 are specification phases, process- 
ing the specification statements and other defini- 
tive information and building the basic Symbol 
Table. 

Phases 11 thru 18 are compilation phases, analyzing 
and processing the source statements and re- 
placing them with object coding. 

Phases 19 thru 26 are the output phases. 

Phase 27 is a recovery phase, terminating the com- 
pilation and executing a CALL EXIT. 

Thus, the FORTRAN Compiler is a "phase" 
compiler; the compiler is passed-by the source 
program, which resides in core and is massaged 
into the object program. 



PHASE OBJECTIVES 

The following is a list of the compiler phases by 
number and name, and their major functions: 



Phase 
Number 



Phase Name 



Input 



Classifier 



Check Order/ 

Statement 

Number 



Function 

Process the control 
records; read the 
source statements 
and build the string. 

Determine tiie state- 
ment type and place 
the type code in the 
ID word. 

Check for the presence 
and sequence of 
SUBROUTINE, 
FUNCTION, Type, 
DIMENSION, COMMON, 
and EQUIVALENCE 
statements; place 
statement numbers in 
the Symbol 
Table, 
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Phase 






Phase 






Number 


Phase Name 


Function 


Number 


Phase Name 


Function 


4 


COMMON/SUB- 


Place COMMON variable 


11 


Subscript 


Calculate the constants 




ROUTINE or 


names and dimension In- 




Decomposition 


to be used in subscript 




FUNCTION 


formation in the Symbol 
Table; check for a 
SUBROUTINE or FUNC- 






calculation during exe- 
cution of the object 
program. 



TION statement and, if 
found, place the name 
and dummy argument 
names in the Symbol 
Table. 

DIMENSION/ Place DIMENSION var- 

REAL, INTEGER, iable names and dimen- 
and EXTERNAL sion information in the 
Sjmibol Table; indicate 
the appropriate mode 
for REAL and INTEGER 
statement variables. 



Real Constant 



DEFINE FILE, 
CALL LINK, 
and CALL EXIT 



Variable and 

Statement 

Function 



DATA Statement 



10 



FORMAT 



Place the nam es of real 
constants in the Ssnnbol 
Table. 

Check the syntax of 
DEFINE FILE, CALL 
LINK, CALL EXIT 
statements; determine 
the defined file specifi- 
cations. 

Place the names of 
variables, integer con- 
stants, and statement 
function parameters in 
the Symbol Table. 

Check the syntax of tlie 
DATA statement, check 
its variables for validity, 
and reformat the state- 
ment. 

Convert FORMAT 
statements into a spec- 
ial form for use by the 
input/output subroutines 
during execution of the 
object program. 



12 



Ascan I 



13 



14 



Ascan n 



DO, CONTINUE, 
etc. 



15 



16 



Subscript 
Optimize 



Scan 



17 



18 



Expander I 



Expander n 



Check the syntax: of all 
arithmetic, IF, CALL, 
and statement function 
statements. 

Check the i^yntax of all 
READ, WRITE, FIND, 
and GO TO statements. 

Replace DO statements 
with a loop initializa- 
tion statement and in- 
sert a DO test state- 
ment following the DO 
loop termination state- 
ment; process BACK- 
SPACE, REWIITO, 
END FILE, STOP, 
PAUSE, and EITO 
statements. 

Replace subscript 
expressions with an 
index register tag. 

Chaise all READ, 
WRITE, GO TO, 
CALL, IF, arithmetic, 
and statement junction 
statements into a mod- 
ified form of Polish 
notation. 

Replace READ, WRITE, 
GO TO, and RETURN 
statements with object 
coding. 

Replace CALL,, IF, 
arithmetic, and state- 
ment function statements 
with object coding. 
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Phase 
Number Phase Name 



Function 



CORE LAYOUT 



19 Data Allocation 



20 Compilation 

Errors 



21 Statement 

Allocation 



22 List Statement 

Allocation 



23 List Symbol 

Table 



24 List Constants 



25 Output I 



26 Output n 



27 Recovery 



Allocate a storage area 
for variables in the 
object program. 

List unreferenced 
statement numbers, 
undefined variables, 
and error codes for 
erroneous statements. 

Determine the storage 
allocation for the object 
program coding. 

List the statement 
number addresses, 
if requested. 

List the subprogram 
names in the Symbol 
Table and the System 
Library subroutine 
names in the string, 
if requested. 

Compute the addresses 
of the constants; list 
the addresses, if 
requested. 

Build the program 
header and data header 
records and place them 
in Working Storage; 
place the real and inte- 
ger constants into 
Working Storage, 

Complete the conver- 
sion of the string to 
object coding and place 
the object program into 
Working Storage. 

Print the compilation 
termination message; 
exit by executin,g a 
CALL EXIT. 



Figure 15, panel 1 shows the layout of the contents 
of core storE^e after the Monitor Control Record 
Analyzer has fetched phase 1 of the FORTRAN 
Compiler into core storage and has passed control 
to the control record analyzer portion. The princi- 
pal print and principal input device subroutines 
have been fetched by phase 1. The card input and 
print buffers have been allocated by phase 1. 

Figure 15, panel 2 shows the layout of the con- 
tents of core storage after the control record analy- 
zer portion of phase 1 has passed control to the 
statement input portion. The control record analy- 
zer portion of the phase is overlaid by the input 
statement string. 

Figure 15, panel 3 shows the layout of the con- 
tents of core storage during the execution of 
phases 2 through 18. During these phases the boun- 
dary separating the statement string and Symbol 
Table fluctuates as the string and Symbol Table 
are massaged. 

Figure 15, panels 4 and 5 show the layout of 
the contents of core storage during the execution 
of phases 19 through 24. Panel 4 reflects the 
contents of core storage before any printing has 
been performed in those phases. In panel 5 the 
lower-addressed portion of these phases has been 
overlaid by the print buffer when printing has 
been performed. 

Figure 15, panels 6 and 7 show the layout of 
the contents of core storage during the execution 
of phase 25. Panel 6 reflects the contents of 
core storage before any object coding has been 
generated and written to disk. In panel 7 the 
lower-addressed portion of the phase has been 
overlaid by the disk output buffer when object 
coding has been generated and written to disk. 

Figure 15, panel 8 shows the layout of the 
contents of core storage after control has been 
passed to phase 26. The disk buffer has been 
allocated by phase 26 and is not an overlay. 

Figure 15, panel 9 shows the layout of the 
contents of core storage after control has been 
passed to phase 27. The principal print device 
subroutine has been fetched by the phase. The 
DCOM buffer has also been allocated by the 
phase. 
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Figure 15. Core Layout During FORTRAN Compiler Operation 



FORTRAN COMMUNICATIONS AREA 



The FORTRAN Communications Area consists 
of 16 words of storage where information obtained 



from the FORTRAN control records and compiler- 
generated addresses and indicators are kept. 
This information is available to any phase needing 
it. The contents of the FORTRAN Commvinications 
Area words are described In Table 3. 
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Table 3. The Contents of the FORTRAN Communications Area 



PHASE AREA 



Word 


Symbolic Name 


DescripHon of Contents 


1 


ORG 


The origin address for an absolute program. 


2 


SOFS 


The address of the start of the string. 


3 


EOFS 


The address of the end of the string. 


4 


SOFST 


The address of the start of the Symbol Table. 


5 


SOFNS 


The address of the start of the non- 
statement-number entries in the Symbol 
Table. 


6 


50FXT 


Phases 1 -20, The address of the start of 
the Symbol Table entries for SGTs (subscript- 
generated temporary variables). 

Phases 21-25. The work area word count. 


7 


SOFGT 


Phases 1 -20. The address of the start of 
the Symbol Table entries for GTs (generated 
temporary storage locations). 

Phases 21-25. The constant area word 
count. 


8 


EOFST 


The address of the end of the Symbol Table. 


9 


COMON 


Phases 1-19. The address of the next 
available word for COMMON storage. 

Phase 20. The address of the highest - 
addressed word reserved for COMMON 
storage , 

Phase 21. Not used. 

Phases 22-25. Relative entry point. 


10 


CSIZE 


All phases except Phase 20, The 
COMMON area word count. 

Phase 20, The address of the lowest- 
addressed word reserved for COMMON 


n 




storage. 




ERROR 


Bit 15 set to 1 indicates overlap error. 
Bit 14 set to 1 indicates other error. 


12-13 


FNAME 


The program name (obtained from the NAME 
control record, or a SUBROUTINE or 
FUNCTION statement) stored in name code. 


14 


SORF 


Set positive to indicate FUNCTION, 
Set negative to indicate SUBROUTINE. 
indicates mainline. 


15 


CCWD 


Control card word. 

Bit 15 set to 1 indicates Transfer Trace. 
Bit 14 set to 1 indicates Arithmetic Trace. 
Bit 13 set to 1 indicates Extended Precision . 
Bit 12 set to 1 indicates List Symbol Table. 
Bit 1 1 set to 1 indicates List Subprogram 

Names 
Bit 10 set to 1 indicates List Source Program. 
Bit 9 set to 1 indicates One Word Integers. 
Bit 8 set to 1 indicates Origin. 


16 


IOCS 


IOCS Control Card Word. 

Bit 15 set to 1 indicates 1442 Card Read 

Punch, Model 6 or 7. 
Bit 14 set to 1 indicates 1134/1055 Paper 

Tape Reader Punch. 
Bit 13 set to 1 indicates Console Printer. 
Bit 12 set to 1 indicates 1403 Printer. 
Bit 11 set to 1 indicates 2501 Card Reader. 
Bit 10 set to 1 indicates Keyboard. 
Bit 9 set to 1 indicates 1442 Card Punch, 

Model 5. 
Bit 8 set to 1 indicates Disk Storage. 
Bit 7 set to 1 indicates 1132 Printer. 
Bit 3 set to 1 indicates 1627 Plotter. 
Bit 1 set to 1 indicates Unformatted Disk 

I/O Area. 


17 


DFCNT 


The number of files defined. 



The Phase Area is the area into which the various 
phases of the compiler are read by the ROL subrou- 
tine. The size of the Phase Area is determined by 
the size of the largest phase of the compiler. 

Each phase, when loaded into the Phase Area, 
overlays the preceding phase. There are two phases, 
however, that are exceptional in that they are loaded 
at some location other than the Phase Area origin. 
The ROL subroutine in phase 1 is loaded into high- 
addressed storage by phase 1 so that it occupies 
initially the position it will occupy throughout the 
compilation. The control record analysis portion 
of phase 1 is loaded into the String Area. This por- 
tion of the phase is in use only until the FORTRAN 
control records have been processed and is overlaid 
by the source statements. Phase 27, the Recovery 
Phase, which is executed after the object program 
has been produced, is also read into the String Area. 



STRING AREA 

During compilation the String Area contains both the 
statement string and the Symbol Table. The state- 
ment string is built by the Input Phase in an ascend- 
ing chain beginning in the low-addressed words of 
the String Area. The Symbol Table is built during 
the compilation process in a descending chain be- 
ginning in the high-addressed words of the String 
Area. 

The statement string expands and contracts as it 
is massaged during the compilation process. The 
Sjnnbol Table expands as items are removed from 
the statement string and added to the Symbol Table. 
In addition, some phases move the entire statement 
string as far as possible toward the Symbol Table. 
The last statement of the string then resides next 
to the last Symbol Table entry. As the phase oper- 
ates on the statement string, now referred to as 
the input string, it is rebuilt in the low-addressed 
end of the String Area. The rebuilt string is refer- 
red to as the output string. This procedure allows 
for expansion of the statement string. 
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If at any time during the compilation an entry 
cannot be made to the statement string or the Symbol 
Table due to the lack of sufficient storage, an overlap' 
error condition exists. In the event of such an over- 
lap condition, the remaining compilation is bypassed 
;and an error message is printed (see Compilation 
Errors ). Either the size of the source program or 
the number of symbols used must be decreased, or 
the program must be compiled on a machine of larger 
storage capacity. 



SYMBOL TABLE 

The Symbol Table contains entries for variables, 
constants, statement numbers, various compiler- 
generated labels, and compiler-generated temporary 
storage locations. 

The first entry of the Symbol Table occupies the 
three highest-addressed words of the String Area, 
i. e. , the 3 words just below the first word of the 
FORTRAN Communications Area. The second entry 
is positioned in the lower-numbered words adjacent 
to the first entry, etc. 

During the initialization of the Symbol Table in 
phase 1, three words are reserved for the first 
Symbol Table entry. This entry is not made, how- 
ever, until phase 3. From this point the size of the 
Symbol Table varies from phase to phase until it 
achieves its largest size in phase 18. Its size always 
includes the three words reserved for the next 
Symbol Table entry. 

During phases 3 through 18, the Symbol Table con- 
tains variables, constants, and statement numbers. 
Information for these entries has been removed from 
the statement string and has been replaced by the 
address of the ID word of the corresponding Ssrmbol 
Table entry. Also, the Symbol Table contains the 
various compiler-generated labels and temporary 
storage locations used in compilation. 



During the output phases, 19 through 26, these 
entries in the Symbol Table are replaced by object 
program addresses that are inserted into the object 
coding by phase 26. 



Format 

All entries in the Symbol Table consist of tliree 
words — an ID word and two Name-Data words. 
The entries for dimensioned variables are e3i:ception- 
al, however, in that they are six -word entries, the 
additional three words containing the dimension 
information. 

The ID word occupies the lowest-addressed word 
of the three word entry. The Name-Data words 
occupy the two higher-addressed words. 

A typical three-word entry is illustrated in the 
following example of the entry for the integei' con- 
stant 290. 



ID Word 



Data Word 1 
2 9 



Data Word 2 
blank blank 



[ 1 100000000000000|01 100101 1 1001 1 10 1 0000000000000000 1 



Lowest-Addressed 
Word 



Highest -Addressed 
Word 



Entry in hexadecimal form -EOOO 65CE 0000 



The entry for the subprogram name COUNT \TOuld 
appear as: 



ID Word 



Name Word 1 
C O U 



Name Word 2 
N T 



1 000000001 0000000 |100001 10101 10100 |1 100010101 10001 1| 



Lowest-Addressed 
Word 



Highest-Addressed 
Word 



Entry in hexadecimal form - C080 86B4 C563 
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ID Word 



Table 4. The Contents of the FORTRAN Symbol Table ID Word 



The layout of the Symbol Table ID word Is given in 
Table 4. The ID word is formed when the entry is 
placed in the Symbol Table. 



Name -Data Words 



The Name-Data words of Symbol Table entries have 
the following format: 



Word Bit Contents 

1 0, if the following 15 bits contain 

the first half of a constant; 1, if 
the following 15 bits contain any- 
thing other than the first half of a 
constant. 

1-15 First 15 bits of the 30-bit Symbol 
Table entry 

2 Same as bit of word 1 



1-15 Second 15 bits of the 30-bit Symbol 
Table entry 



Bit 
Position 


Status and Meaning 








- Constant 

- Variable 


1 





- Integer 

- Real 


2 




- COMMON 


3-4 


01 
10 
11 


- One dimension 

- Two dimensions 

- Three dimensions 


5 




- Statement function parameter/dummy argument 


6 




- Statement number 


7 




- Stotement function name 


8 




- Subprogram name 


9 




- FORMAT statement number 


10 




- Referenced statement number or defined 
variable 


11 




- External 


12 




- Generated temporary storage location (GT) 


13 




- Subscript-generoted temporary variable (SGT) 


14 




- Allocated variable 


15 


Not Used 



Three words are always used for the dimension 
information regardless of the number of dimensions. 

For one-dimensional arrays, all three dimension 
words contain the integer constant that specifies the 
dimension of the array. For example, the entry for 
array ARRAY (10) would appear as: 



Dimension Information 



Array Name 



Dimensioned Entries 



10 ^ 10 



Lowest- 
Addressed 
Word 



10 ID Word 



_L 



J 



Highest- 
Addressed 
Word 



The Ssmibol Table entry for a dimensioned variable 
requires six words: two for the array name, one 
for the ID word, and three for the dimension infor- 
mation. The dimension Information occupies the 
three lowest-addressed words, the ID word occupies 
the next higher-addressed word, and the Name-Data 
words occupy the two highest-addressed words. 



For two-dimensional arrays, the first (highest- 
addressed) dimension word contains the integer 
constant of the first dimension; the middle and 
last (lowest-addressed) dimension words both 
contain the product of the first and second dimen- 
sion integer constants. Thus, the dimension in- 
formation for array B(5, 15) appears as: 
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Dimension Information 



75 , 75 , 5 ^IDWord^ 



Array Name 



the number of words used to store that statement, 
including the ID word and statement terminator. 

The statement type codes, shown in Tabki 5, are 
added in the Classifier Phase (except for FORMAT 
statements) . 



For three-dimensional arrays, the first dimen- 
sion word contains the integer constant of the first 
array dimension; the middle dimension word con- 
tains the product of the first and second dimension 
integer constants; the third dimension word con- 
tains the product of the first, second, and third 
integer constants of the array dimensions. The di- 
mension information for array C(9,9,9) appears as: 



Array Name 



Dimension Information 

, • , , ^ 

729 81 9 ID Word 

I I I I L 



STATEMENT STRING 

The source statements are read by the Input Phase, 
converted to EBCDIC, and stored in core storage. 
The first statement is stored starting at $ZEND, and 
each succeeding statement is placed adjacent to the 
previous statement, thus forming the source state- 
ments into a string. The area within which the 
source statements are stored is referred to as the 
String Area. 



ID Word 



For identification purposes, as each statement is 
placed in the String Area, an ID word is added at 
the low-address end of each statement. The ID 
word has the following format: 

Bit Contents 

0-4 Statement type code 

5-13 Statement Norm 

14 Varied; used for interphase 
communication 

15 1, if statement is numbered; otherwise, 

The Norm is the only portion of the ID word com- 
pleted by the Input Phase. The Norm is a count of 



Table 5. FORTRAN Statement ID Word Type Codes 



Code 


statement Types 


00000 


Arithmetic 


00001 


BACKSPACE 


00010 


END 


00011 


END FILE 


00100 


SUBROUTINE 


00101 


REWIND 


00110 


CALL 


00111 


COMMON 


01000 


DIMENSION 


01001 


REAL 


01010 


INTEGER 


01011 


DO 


01100 


FORMAT 


01101 


FUNCTION 


OHIO 


GOTO 


01111 


IF 


10000 


RETURN 


10001 


WRITE 


10010 


READ 


10011 


PAUSE 


10100 


Error 


10101 


EQUIVALENCE 


10110 


CONTINUE 


10111 


STOP 


11000 


DO test 


11001 


EXTERNAL 


11010 


Statement Function 


noil 


Internal Output Format 


11100 


CALL LINK, CALL EXIT 


11101 


FIND 


11110 


DEFINE FILE 


mil 


DATA 
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statement Body 

Each statement, after being converted to EBCDIC, 
is packed two EBCDIC characters per word. This 
is the form in which the statements are initially 
added to the statement string. 



Statement Terminator 

Statements are separated by means of the statement 
terminator character, a semicolon. The statement 
terminator character indicates the end of the state- 
ment body. This character remains in the string 
entry throughout the compilation process for that 
particular statement type. 

All statements in the statement string carry the 
statement terminator except for FORMAT and CON- 
TINUE statements and compiler-generated error 
statements. Error statements inserted into the 
string by the compiler are inserted without the 
terminator character. 



COMPILATION ERRORS 



is printed and no object program is placed in Working 
Storage. 

Error messages appear in the following format: 

CAA ERROR AT STATEMENT NUMBER 
XXXXX+YYY 

where C indicates the FORTRAN Compiler, AA Is the 
error number, XXXXX is the last encountered 
statement number, and YYY is the count of state- 
ments from the last statement number. 

There are also error messages in the format 

CAA ZZZZZZZZZZ. .. 



where ZZZZZ. 
condition. 



is an explanation of the error 



See the Programming and Operator's Guide publi- 
cation for a list of the FORTRAN error numbers, 
their explanation, and the phases during which they 
are detected. 

In addition to the errors, undefined variables are 
listed by name at the end of compilation. Undefined 
variables inhibit the output of the object program. 



When an error is detected during the compilation 
process, the statement in error is replaced by an 
appropriate error statement in the statement string. 
Each error statement Is added during the phase in 
which the corresponding error is detected and the 
procedure is the same in all phases. 

1. The tj^e code in the erroneous statement's ID 
word is changed to the error type. 

2. The statement body is replaced by the appro- 
priate error number. The statement number, 
if present, is retained in the Symbol Table and 
the Symbol Table address is retained in the 
error statement on the string. 

3. The statement string is closed up, effectively 
deleting the erroneous statement from the state- 
ment string. 

Error statements in the statement string are ex- 
ceptional In that they do not carry the statement 
terminator character (semicolon). 

Error indications are printed at the conclusion of 
compilation. If a compilation error has occurred, 
the message 

COMPILATION DISCONTINUED 



COMPILER I/O 



The compiler uses the DISKZ . subroutine for all disk 
I/O operations required during compilation. 

The compiler uses the principal input device sub- 
routine to read the control records and source state- 
ments to be compiled, and the principal input con- 
version subroutine to convert the source input to 
EBCDIC. 

The principal print device subroutine is used to 
perform any printing required during the compilation. 



FETCHING COMPILER PHASES 

The ROL subroutine loaded into high-addressed stor- 
age as part of phase 1, obtains from each phase the 
word count and sector address of the next phase to be 
loaded. This subroutine then reads the next compiler 
phase into core storage and transfers control to it. 

If a small change is made to the ROL subroutine, 
it also examines the Console Entry switches. If 
a request to dump is indicated in the switches, it 
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calls the System Core Dump program via the $DUMP 
entry point in the Skeleton Supervisor to dump the 
statement string, the Symbol Table, and the FOR- 
TRAN Communications Area. At the completion of 
the dump the ROL subroutine regains control. It 
then fetches and transfers control to the next phase. 



PHASE DESCRIPTIONS 



PHASE 1 

• Reads the control records; sets the correspond- 
ing indicators in the FORTRAN Communications 
Area. 

• Reads the source statements; stores them in the 
String Area; precedes each statement with a 
partially completed ID word. 

• Checks for a maximum of five continuation rec- 
ords per statement. 

• Lists the source program, if requested. 

Phase 1 is composed of two major segments; the 
first analyzes the control records and the second 
inputs the source statements. The control record 
analysis portion of phase 1 is loaded into the String 
Area, while the statement input portion is loaded at 
the normal Phase Area origin. The control record 
analysis subroutines, therefore, remain in storage 
until the processing of the control records Is com- 
pleted. They are then overlaid by the source state- 
ments as the string is built by the statement input 
portion. 



Errors Detected 



The errors detected by pha.se 1 are: 1 and 2. 



PHASE 2 

• Determines the statement type for each statement; 
inserts the type code into the statement ID word. 

• Places the statement terminator character (semi- 
colon) at the end of each statement. 



• Converts subprogram names longer than five 
characters to five-character names. 

• Converts FORTRAN -supplied subprogram names 
according to the specified precision. 

• Generates the calls and parameters that initialize 
I/O subroutines during execution of the obj ect pro- 
gram, if the IOCS control indicators are present. 

According to the indicators set in the IOCS word 
(word 16) of the FORTRAN Communications /irea by 
the previous phase, phase 2 generates the recjuired 
calls to FORTRAN I/O. If the Unformatted Disk I/O 
Area indicator is on, a 'LIBF UFIO' followed by its 
parameter is inserted into the string. If the Disk 
indicator is on, a 'LIBF SDFIO' followed by its par- 
ameter is inserted into the statement string. If any 
other indicator in the IOCS word is on, phase 2 in- 
serts the 'LIBF SFIO' followed by its parameters 
into the statement string. The table of device ser- 
vicing subroutines (ISSs) is also built and inserted. 

Phase 2, beginning with the first statement of the 
string, checks each statement in order to classify it 
into one of the 31 statement types. FORMAT state- 
ments, already having the type code, and compiler- 
generated error statements are not processed by this 
phase. Each statement name is compared to a table 
of valid FORTRAN statement names. Each recog- 
nized statement name is removed from the string 
and the corresponding ID type code is inserted into the 
statement ID word. 

Arithmetic statements are detected by location of 
the equal sign (=) followed by an operator oth(3r than 
a comma. Because of this method of detecticin, 
arithmetic and statement function statements both 
carry the arithmetic statement ID type until phase 8, 
which distinguishes them. 

Names within the statement body are conv(3rted 
into name code and stored. Names with only one or 
two characters are stored in one word. 

Phase 2 converts all parentheses, commas, etc. , 
into special operator codes. Each operator is stored 
in a separate word. Also, each arithmetic operator 
(+, -, /, *, **) is stored in a separate word, and a 
statement terminator character (semicolon) is placed 
after each statement, except for CONTINUE and 
FORMAT statements and compiler-generated error 
statements. 

NOTE: The string words containing name or con- 
stant characters have a one in bit position 0, Bit 
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position of string words containing arithmetic op- 
erator characters has a zero. 

The standard FORTRAN-supplied subprogram 
names specified in the source program are changed, 
if necessary, to reflect the standard or extended 
precision option specified in the control records. 
Also, the six-character subprogram names of 
SLITET, OVERFL, and SSWTCH, which are allowed 
so as to be compatible with System/360 FORTRAN, 
are changed to SLITT, OVERF, and SSWTC, respec- 
tively. 

The word FUNCTION appearing in a Type state- 
ment and the statement numbers of DO statements 
are isolated by the Classifier Phase. Isolation is 
accomplished by placing a one-word special oper- 
ator (colon) just after the word or name to be isolated. 
This process aids later phases in detecting these 
words and numbers. 



Errors Detected 



The error detected by phase 2 is: 4. 



SUBROUTINE or FUNCTION statement 
Type statements (REAL, INTEGER) 
EXTERNAL statements 
DIMENSION statements 
COMMON statements 
EQUIVALENCE statements 

A check is also made to ensure that all DATA and 
DEFINE FILE statements appear within the Specifi- 
cation statement group. Placement of these two 
statement types is optional; however, they must not 
be intermixed with EQUIVALENCE statements. 

The SORF word (word 14) in the FORTRAN Com- 
munications Area is appropriately modified if a 
SUBROUTINE or FUNCTION statement is present. 

The second pass of phase 3 scans the statement 
string for statements with statement numbers. Each 
unique statement number is placed into the Symbol 
Table and the address of the Symbol Table entry is 
placed into the string where the statement number 
previously resided. 

All statements having statement numbers pre- 
viously added to the Symbol Table (duplicates of other 
statement numbers) are in error. 



PHASE 3 



Errors Detected 



• Checks the subprogram and Specification state- 
ments for the proper order; removes any state- 
ment numbers from these statements. 

• Checks to ensure that statements following IF, 
GO TO, CALL LINK, CALL EXIT, RETURN, 
and STOP statements have statement numbers. 

• Removes CONTINUE statements that do not have 
statement numbers. 

• Checks the statements for statement numbers; 
checks the Symbol Table for a previous entry of 
the same statement number. 

• Places the statement number into the Symbol 
Table; places the address of the Symbol Table 
entry into the string. 

Phase 3 makes two passes through the statement 
string. The first pass checks to ascertain the sub- 
program and Specification statements are in the fol- 
lowing sequence: 



The errors detected by phase 3 are: 5, 6, and 9. 



PHASE 4 

• Places COMMON statement variables into the 
Symbol Table; includes dimension information in 
the Symbol Table entries , if present; removes the 
statement from the string. 

• Checks for a SUBROUTINE or FUNCTION state- 
ment; places the names and dummy arguments 
of the SUBROUTINE or FUNCTION statement into 
the Symbol Table; deletes the statement from 
the statement string. 

• Checks REAL and INTEGER statements for the 
word FUNCTION. 

Phase 4 is a two-pass phase. The first pass proc- 
esses COMMON statements; the second pass proc- 
esses a SUBROUTINE or FUNCTION statement, in- 
cluding a FUNCTION designated in a REAL or 
INTEGER statement. 



Section 11. FORTRAN CompUer 83 



Pass 1 of phase 4 examines all COMMON state- 
ments , checking all variable names for validity. 
Valid, unique variable names found in COMMON 
statements are placed into the Symbol Table. Dupli- 
cate variable names are in error. 

When dimension information is present in a 
COMMON statement, the Symbol Table entry for the; 
dimensioned variable is expanded to six words, the 
dimension constants are changed to binary forma.t, 
and this binary information is inserted into the 
Symbol Table entry. The Symbol Table ED word is 
updated to indicate the presence of the dimension 
Information and the level of dimensioning. 

When all the variables in a COMMON statement 
have been processed, it is removed from the string. 

The second pass of phase 4 checks for a SUBROU- 
TINE or FUNCTION statement among the Specifica- 
tion statements. If either is found, the SORF word 
(word 14) in the FORTRAN Communications Area is 
modified to indicate whichever is applicable. The 
subprogram name is checked for validity. If valid, 
the name is added to the Symbol Table and the ad- 
dress of the Symbol Table entry is placed into the 
FNAME words (words 12-13) in the FORTRAN Com- 
munications Area. The subprogram parameters are 
checked and, if valid, they are added to the Symbol 
Table and the statement is removed from the string. 

The first REAL and INTEGER statements are 
examined for the presence of the word FUNCTION. 
If the FUNCTION specification is found, the REAL 
or INTEGER statement is processed in the same 
manner as a FUNCTION statement, except that the 
subprogram mode is specified explicitly by the 
statement type. 



• Indicates in the Symbol Table ID word th€i 
variable's mode (real or integer). 

• Checks EXTERNAL statements for the na.mes 
IFK and FLOAT, which are not allowed. 

The processing of phase 5 is done in two passes. 
The first pass analyzes DIMENSION statements. Each 
variable name found in a DIMENSION statement is 
first checked for validity. If the name is valid, the 
Symbol Table Is searched for a duplicate. If no dupli- 
cate is found, the variable name, along with its di- 
mension information, is added to the Symbol Table. 
If a duplicate is found that has not yet been dimen- 
sioned, the dimension information from the variable 
name is added to the existing Symbol Table (jntry. If 
a duplicate is found that has already been diinen- 
sioned, the variable name is in error. 

In a subprogram compilation, a comparison is 
made to ensure that no variable name duplicates the 
subprogram name. 

The second pass of phase 5 examines the REAL, 
INTEGER, and EXTERNAL statements found in the 
statement string. Each variable found in thtjse types 
of statements is checked for validity. Valid variables 
are compared to the Symbol Table entries. Those 
variables duplicated in the Symbol Table as ithe result 
of prior COMMON or DIMENSION statement entries 
are in error. Those not equated to Symbol Table 
entries are added to the Symbol Table in the same 
manner as in the first pass of this phase. 



Errors Detected 



Errors Detected 



The errors detected by phase 5 are: 
18, 19, 20, 21, and 22. 



7, 8, 15, 17, 



The errors detected by phase 4 are: 7, 8, 10, 11, 12, 
12, 13, 14, and 15. 



PHASE 6 



PHASE 5 



• Scans all IF, CALL, and arithmetic statements 
for valid real constants. 



Places DIMENSION statement variables into the 
Symbol Table; places dimension information into 
the Symbol Table entries; removes the statement 
from the string. 

Places variables and dimension information from 
REAL, INTEGER, and EXTERNAL statements 
into the Symbol Table. 



• Converts real constants to standard or extended 
precision format, as specified. 

Each valid real constant encountered in an arithmetic 
IF, or CALL statement is converted to binary in the 
precision indicated by the FORTRAN Communica- 
tions Area indicators. The Symbol Table is checked 
for a previous entry of the constant. If a preivious 
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entry is found, no new entry is made. The constant 
operator, a special code indicating that the follow- 
ing word is the Symbol Table address of a constant, 
followed by the Symbol Table address of the con- 
stant already entered is inserted into the statement 
string in place of the constant. 

If no previous entry in the Symbol Table is found, 
the converted constant is added to the Symbol Table. 
The constant operator along with the Symbol Table 
address replaces the constant in the statement string. 
The statement string is closed up following the alter- 
ation of the string. 

Errors Detected 

The following errors are detected by phase 6: 23 
and 50. 



PHASE 7 

• Checks the syntax of DEFINE FILE, CALL EXIT, 
and CALL LINK statements. 

• Determines the defined file specifications. 

All variable names in DEFINE FILE, CALL LINK, 
and CALL EXIT statements are checked for validity 
and are added to the Symbol Table. All valid con- 
stants are converted to binary and are added to the 
Symbol Table. 

Phase 7 checks to ensure that a DEFINE FILE 
statement does not appear in a subprogram. 

This phase computes the file definition specifica- 
tions, that is, a DEFINE FILE Table consisting of 
one entry for each unique file. Each entry consists 
of the file number, the number of records per file, 
the record length, the associated variable, a blank 
word for insertion of the file's sector address at the 
time the program is loaded for execution, the num- 
ber of records per sector, and the number of disk 
blocks per file. A count is kept in the DFCNT word 
(word 17) in the FORTRAN Communications Area 
of the number of files defined. 



Errors Detected 

The errors detected by phase 7 are; 3, 70, 71, 72, 
73 and 74. 



PHASE 8 

• Places variables and integer constants into the 
Symbol Table. 

• Places parameters from statement function state- 
ments into the Symbol Table. 

• Replaces operators with pointers to the Forcing 
Table to be used in phase 16. 

• Converts the left parenthesis of subscripts to a 
special dimension indicator. 

Phase 8 checks the variable names found in the state- 
ment string for validity. Valid variables are added 
to the Symbol Table. A second check is made to en- 
sure that all variable names conform to the implicit 
or explicit mode specifications (real and integer). 
Integer constants are also added to the Symbol Table, 
provided they are unique. However, integer con- 
stants that are found in subscript expressions are 
not added to the Symbol Table until a later phase. 

When adding names and constants to the Symbol 
Table, phase 8 replaces them in the string by the 
address of their respective Symbol Table entries, 
except if they are found in subscript expressions. 
The address replacing a constant or name is the 
address of the ID word of the Symbol Table entry 
for that constant or name. 

Internal statement numbers are located in the 
Symbol Table and are replaced by the address of their 
corresponding Symbol Table entries; those state- 
ment numbers not found in the Symbol Table (1. e. , 
not previously entered) are in error. 

Phase 8 changes the ED word of the statement 
function statement, until now identical to that of an 
arithmetic statement, to the statement function type. 
Also, the statement function name and the param- 
eters of statement functions are added to the Symbol 
Table. These entries in the Symbol Table are dis- 
tinguished by their lack of a sign bit in the second 
word of the name. 

During phase 8, the left parenthesis on subscripts 
is changed to a special left parenthesis operator that 
indicates the order of the dimension that follows. 

This phase also converts all operators, except 
those in subscript expressions, from the 6-bit 
EBCDIC representation to a pointer value. This 
pointer value is derived from the Forcing Table. The 
conversion is done in preparation for the Scan Phase, 
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phase 16, when an arithmetic operational hierarchy 
will be determined through these pointer values. 



Errors Detected 



The constant may be one word in length (an integer), 
two or three words in length (a real number in stand- 
ard or extended precision), or n words in length (a 
literal). 

Each data pointer has the following form: 



The following errors are detected in phase 8: 7, 24, 
25, 26, and 43. 



PHASE 9 

• Checks the DATA statement for correct syntax 
and v£ilid variable references. 

• Reformats the DATA statement into a string ol' 
data groups. 

Each variable in the DATA statement is checked to 
ensure that it has been previously entered into the 
Symbol Table. A check is also made to ensure that 
a subscript expression for a DATA statement vari- 
able does not exceed the level of dimensioning indi- 
cated in the Symbol Table entry for the referenced 
variable. 

Phases 9 converts the DATA statement into the 
following form: 



ID 
Word 



I Data Group I i Data Group 2 i 
- I K '- H ' 



I Data Group n | 
' I I 1 



Word Bit 

1 

1 



3-4 

5-15 

0-15 



Contents 



0, if no displacement word follows 

1 , if a displacement word follows 

0, non-extemally subscripted 
variable 

1, externally subscripted variable 
Zeros 

Symbol Table address of the variable 
Displacement word (present only if 
variable is subscripted) 



A displacement word follows data pointersi to sub- 
scripted variables; its contents are the adjusted sub- 
script offset. 

The statement terminator is removed frora the 
DATA statement in phase 9. 



Errors Detected 

Phase 9 detects the following errors: 75, 76, 77, 
78, 79, 80, and 82. 



PHASE 10 



Each data group has the following form: 



• Converts FORMAT statements into a chain of 
format specifications for interpretation hy the 
FORTRAN I/O subroutines. 



Data Data Data 

Header Constant Pointer 1 Pointer 2 

I 5? I I I 



Data 
Pointer n 



Converts the Apostrophe ( ') type format tci 
H type. 



Each data header has the following form: 

Bits Contents 



1-12 Duplication factor 

13-15 Length of the following constant 



In decomposing the FORMAT statement, phase 10 
converts each format type into a format specification 
(see Table 6). Where required, the Field Repeat, 
Group Repeat, and REDO counts are computeid and 
inserted. At the completion of phase 10, the 
FORMAT statement is simply a chain of format 
specifications. 

The conversion of a FORMAT statement is shown 
below: 
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ID 
Word 999 
I I 



H,3 A,P 

I 



=,b F,3,6 E,4,10 / 
I I I 



RR,4 
J L 



-3 T, 1 H,IO b,A N,S W,E R,b l,S H,3 
1 I I I I I I I 



X,Y =,b F,4,9 RR, 16 
\ I I I 



Table 6. Conversion of FORTRAN FORMAT Specifications 



Formal" 

Type 

(input) 


4 Bits 


Format Specif 
5 Bits 


cation (output) 
7 Bits 


16 Bits 






' If SI ^ 


f 


^ 


E 


0000 


DD 1 WW 


F 


000 1 


DD 


WW 


1 


00 10 


WW 


A 


00 11 


WW 


X 


100 


WW 


H 


10 1 


WW 


T 


Olio 


cc 


/ 


V 1 1 


Undefined 


Group Repeat 


1000 


NO 


RR, 


\} 


Field Repeat 


100 1 


NO 








10 10 


Not Used 


REDO 


10 11 


RR 



DD (decimal width) 
WW (total field width) 

CC (carriage control) 



Maximum - 127 (used only in E and 
F type formats). 

Maximum = 127 in E and F type for- 
mats, 145 In I, A, X, and H type 
formats. 

Positive count of the number of 
character positions to be skipped. 



NO (number) Positive count of the number of 

repetitions to be made of a field or 
group. 

RR, (group repeat) Negative count of the number of words 

back to the first specification of a group 
to be repeated. 

RR (REDO) Positive count of the number of words 

back to the rightmost left parenthesis in 
the statement. 



Errors Detected 

The following errors are detected in phase 10: 27 , 
28, 29, and 30. 



PHASE 11 

• Calculates the constants needed for object pro- 
gram subscript computation. 



• Sets up dummy arguments for the insertion of 
variables in the object coding. 

Phase 11 bypasses all FORMAT, CONTINUE, and 
compiler-generated error statements. All other 
statements are scanned but only those statements 
that contain the special left parenthesis operator 
inserted by phase 8 are operated upon. 

The subscripting information for each variable 
is checked for validity. 
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Phase 11 then calculates the subscript constant 
D4 and, depending on the dimensioning level, the 
constants Di, D2, and D3. (See below for the 
method of derivation of these constants. ) 

These subscript constants are inserted into the 
subscript expression with the subscript indices. 
The right and left parenthesis enclosing the subscript 
expression are then changed to special operators to 
be used in a later phase. 



Calculation of the Subscript Constants 

Assuming the maximum subscript form 

c*v+c' 

where 

V represents an unsigned, nonsubseripted, integer 
variable and c and c' represent unsigned integer 
constants, 

phase 11 computes the subscript constants (D-factors) 
as follows: 



D„ = L*M*C *S 
3 5 



D 



[(Cg - 1) + L * (C^ - 1) + L * M * (C^, - 1)| *S 



For a 1 -dimension array 
A(C^ *I + C^) 



D = C *S 

D^ = (Cg - 1) *S 



For a 2-dimension array — 

A(C^*I+C2, C3*J+C^) 

Dj = C *S 

Dg = L * Cg * S 

D^ = [(C2-1) + L*(C^-1)| *S 
For a 3 -dimension array — 



A(C^ *I + C^, Cg * J + C^, Cg *K + Cg) 
Dj = C^ *S 
Dg = L * Cg *S 



In the above formulas, 

L = first dimension factor 

M = second dimension factor 

S = size in words of the array entries 

= 1 for one-word integers 

= 2 for standard precision 

= 3 for extended precision 

C and C = constants in the first dimension value 
1 ^ 

C and C = constants in the second dimension 
value 

C, and C„ = constants in the third dimension 
5 6 

value 

I, J, and K are the subscript indices. 



Errors Detected 

The following errors are detected in phase 11: 31, 
32, 33, 34, and 35. 



PHASE 12 

• Checks the syntax of arithmetic, IF, CALL, and 
statement function statements. 

• Checks statement function calls. Including nested 
calls, for valid names and the correct number of 
parameters. 

• Checks for the definition of variables; checks for 
valid statement number references in IF state- 
ments. 

The syntax of all CALL statements is checked. A 
call operator is inserted between the subprogram 
name and its dummy arguments for use in the Scan 
Phase, phase 16. 

During the analysis of statement function state- 
ments a table is built containing the statement function 
name and the number of parameters associatejd with 
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that function. This table is used in analyzing state- 
ment function calls, including nested calls, to check 
for the proper number of parameters. 

The syntax of the record number expression in 
Disk READ /WRITE statements is checked. The right 
parenthesis is changed to a colon operator which 
facilitates the scan of the Disk READ /WRITE state- 
ment in the following phase. 



PHASE 14 

• Checks for valid syntax in DO statements and in 
nested DO loops. 



• Generates and inserts at the appropriate points 
the coding needed to perform the DO test. 



Errors Detected 

The following errors are detected in phase 12: 
37, 38, 39, 40, 41, 42, and 43. 



36, 



Checks the syntax of DO, CONTINUE, BACK- 
SPACE, REWIND, END FILE, STOP, PAUSE, 
and END statements. 



PHASE 13 

• Checks FIND, READ, WRITE, and GO TO state- 
ments for correct syntax, valid FORMAT state- 
ment references, and valid variables. 

• Detects implied DO loops in READ and WRITE 
statements; generates the indicators necessary 
for later processing of the DO loop. 

When READ and WRITE statements are encountered 
In a mainline program, a check is made for the pres- 
ence of IOCS indicators in the FORTRAN Communi- 
cations Area. All READ and WRITE statements in a 
SUBROUTINE or FUNCTION subprogram do not 
require the presence of IOCS indicators. 

READ, FIND, and WRITE statements are checked 
for valid variables and for proper syntax. READ 
and WRITE statements are checked for a valid 
FORMAT statement reference. Disk READ and 
WRITE statements are differentiated by means of the 
apostrophe (') separating the file number and record 
number parameters. The appropriate disk or non- 
disk I/O operator is generated for and inserted into 
each READ or WRITE statement. 

READ and WRITE statements are also checked 
for implied DO loops. The necessary DO initialize 
and DO test operators are generated and inserted into 
the statement body. 



Errors Detected 



• Checks for a GO TO, IF, STOP, CALL LINK, 
CALL EXIT, or RETURN statement as the last 
executable statement of the source program. 



BACKSPACE, END FILE, and REWIND statements 
are checked for valid unit addresses. Valid unit 
addresses are placed into the Symbol Table as 
integer constants. BACKSPACE, END FILE, and 
REWIND statements are then replaced on the state- 
ment string by a generated LIBF followed by the 
Symbol Table address of the unit address. This 
Symbol Table address becomes an argvunent to 
the LIBF. 

Statements which follow STOP statements are 
checked to ensure that they are numbered statements. 
All integers found in PAUSE and STOP statements 
are checked to ensure that they are not greater than 
9999. Valid integers are added to the Symbol Table 
as integer constants. 

As the DO statements are analyzed for correct 
syntax, phase 14 constructs a DO Table in the follow- 
ing format: 



The following errors are detected in phase 13: 43, 
44, 45, 46, 47, 48, 49, 50, and 68. 



Word 


Contents 


1 


Index 


2 


DO test statement number or 




Generated Label 


3 


Test value 


4 


Increment 


5 


DO range statement 




number 
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A DO Table entry is made for each DO statement 
when it is detected. As the statements following 
the DO statement are scanned, the statement num- 
bers are compared with the contents of word 5, the 
range limit, of the DO Table entries. When the 
range limit is found the DO test coding is inserted 
into the statement string. 

The DO Table is built from low-to-high-addressed 
storage. It is scanned, however, from high-to-low- 
addressed storage. In this manner, nested DO loops 
that violate range limits are detected. 



Errors Detected 



The following errors are detected in phase 14: 51, 
52, 53, 54, 55, 56, 57, 58, 59, 60, 61, and 62. 



PHASE 15 

• Scans READ, WRITE, IF, CALL, and arithmetic 
statements for subscript expressions. 

• Optimizes subscript calculation by means of the 
Subscript Expression Table. 

• Generates SGTs (Subscript-generated temporary 
storage locations) as necessary. 

Each unique subscript expression is placed into a 
table called the Subscript Expression Table. Each 
entry in this table appears as follows: 



Word 

1 
2 
3 

4 
5 
6 

7 
8 



Contents 



D. 



I, first dimension subscript index 

°1 

J, second dimension subscript index 

°2 

K, third dimension subscript index 

°3 

/8010, if entry is not used 

/OOIO, if entry is used on this statement 

/OOOO, if entry was used on a previous 

statement 



Also, each unique variable of a subscript expression 
is placed into a table called the Bound Variable 
Table. 

As each subscript expression is entered into the 
Subscript Expression Table, it is removed from the 
string. The subscripted variable is then tagged with 
SGT indicator bits pointing to the Subscript Expres- 
sion Table entry. 

An SGT (Subscript-generated temporary storage 
location) is generated for each entry made to the Sub- 
script Expression Table. The SGT is placed into an 
SGT Table. The SGT is also placed into the Symbol 
Table and the address of the Symbol Table entry is 
inserted into the statement in the string. 

For each subscript expression encountered, a 
scan is made of the Bound Variable Table. If one or 
more of the variables in the subscript expresision are 
not located in the Bound Variable Table, the subscript 
must be recalculated. Thus, a unique entry is made 
to the Subscript Expression Table for the exi:>ression 
and an associated SGT is generated. 

If, however, all the variables of the subscript 
expression are located in the Bound Variable Table, 
the Subscript Expression Table is then scanned to 
determine if a duplicate subscript expression is al- 
ready located in the table. If no equivalent is found, 
the subscript expression is added to the table: as a 
unique entry and an associated SGT is generated. 

If a duplicate expression is found in the Subscript 
Expression Table, the subscript expression is re- 
moved from the string and is replaced by a pointer 
to its duplicate in the Subscript Expression Table. 
Thus, identical subscript expressions share the same 
indices of a common entry in the Subscript Expression 
Table and the same SGT. 

Whenever a variable is assigned a new value (i. e. , 
appears to the left of the equal sign in an arithmetic 
expression, in the argument list of a subprogram, 
etc.), that variable, if found in the Bound Variable 
Table, is removed from the table. This removal 
from the Bound Variable Table causes all entries in 
the Subscript Expression Table containing that vari- 
able to be removed. The associated SGTs are also 
removed from the SGT Table but remain in ttie Sym- 
bol Table. The addresses in the string of the SGTs 
in the Symbol Table also remain. 

If a statement is encountered containing a subscript 
expression and having a statement number thit is 
referenced by some other statement, the entire Sub- 
script Expression Table is cleared and all subscripts. 
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beginning with the subscript expression in the ref- 
erence statement, must be recalculated. 

The Subscript Expression Table is also cleared 
whenever a DO statement is encountered. Following 
subscripts must be recalculated. Implied DO loops, 
as in READ and WRITE statements, cause only those 
entries involving the index of the implied DO to be 
cleared. Only the subscripts involving that index 
must be recalculated. 



Errors Detected 



Table 7. FORTRAN Forcing Table 



The following error is detected in phase 15: 63. 



PHASE 16 

• Converts all FIND, READ, WRITE, IF, GO TO, 
CALL, statement function, and arithmetic state- 
ments into a modified form of Polish notation. 

• Establishes the order of arithmetic operational 
performance. 

• Sets up the arguments for subroutine calls to be 
generated. 

Phase 16 converts all READ, WRITE, GO TO, arith- 
metic, statement function, CALL, and IF statements 
to a modified form of Polish notation. This conver- 
sion is accomplished through the use of a Forcing 
Table, strings, and an Interpreter. 

The Forcing Table is a table of 2-word entries. 
The first word contains the left and right forcing 
values for each operator. The first 8 bits constitute 
the left forcing value and the last 8 bits, the right 
forcing value. The second word of the 2-word entry 
contains the address of the string to be used by the 
Interpreter when the corresponding operator is 
forced. (See Table 7.) 

The string address (word 2 of each Forcing Table 
entry) for each operator is a pointer used by the 
Interpreter. This pointer designates to the Inter- 
preter a string of operations that must be per- 
formed by the Interpreter in order to convert the 
forced operator and its operands to the modified form 
of Polish notation. 

NOTE: Strings may also contain pointers. These 
pointers designate substrings, which are detailed 



Operator 


Definition 


Forcing 
Left 1 


Value 
Right 


String 
Pointer 


N 


Name Operator 


63 


00 





) 


Normal Right Parenthesis 


01 


32 





; 


Statement Terminator 


3C 


3C 





+, - 


Add, Subtract 


OA 


OA 


1 


/,* 


Divide, Multiply 


05 


05 


1 


t 


Exponentiation 


05 


04 


1 


■*-!- 


Assign 


3B 


3C 


1 


( 


Normal Left Parenthesis 


31 


01 


2 


- 


Comma 


31 


30 


3 


© 


Coll Operator 


01 


01 


4 


©,©, 


Special Parenthesisfor Literals, 








©.©. 


Special Parenthesis for 
Dimensioned Arroys 


31 


01 


6 


© 


Unary Minus 


OA 


OA 


7 


© 


Range Operator 


31 


01 


8 


© 


Special Right Parenthesis in 
Implied DOs 


31 


01 


9 


© 


Subscripting Right Parenthesis 
in Implied DOs 


31 


01 


10 


© 


I/O Operator before Scon 


30 


01 


11 


© 


I/O Operator during and after 
Scan 


30 


01 


12 





Equal Sign in Implied DOs 


31 


01 


13 



extensions of the string and which are used by the 
Interpreter in the same manner as the strings. 

A forcing condition exists if the forcing value of 
the right operator is equal to or greater than the 
forcing value of the left operator. This condition re- 
sults in the left operator being forced; that is, the 
operation to the left has precedence. Whenever a 
non-forcing condition exists, the operands and oper- 
ators involved remain in the statement. Operands 
and operators are removed from the string only when 
an operator is forced and the Interpreter-generated 
symbol FAC replaces them. 

The Interpreter controls the conversion of the 
statement to the modified form of Polish notation. As 
each operator is forced, the Interpreter, using the 
string address from the Forcing Table, selects the 
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associated string and performs the string opera- 
tions. These operations result in the output of the 
forced operator and its operands, resequenced in 
the order of operational performance. The forced 
operator and its operands are put out into the output 
buffer by the Interpreter and are replaced in the 
statement body by the symbol FAC. 

The scan begins with the string pointer moving 
from left to right. When an operator is encountered , 
the scan looks two words to the left for a second op- 
erator. If none is found, the string pointer moves 
to the right, one word at a time, in search of another 
operator. If an operator is found to the left, the 
scan converts the left and right operators to their 
respective forcing values and checks for the forcing 
condition. 

If a forcing condition does not exist, the scan 
again resumes, moving the pointer to the rigjit. If, 
however, a forcing condition does exist, the Inter- 
preter handles the operator and operands involved. 

Upon return to the scanning process, the string 
pointer is positioned to the same operator that 
caused the previous force, the symbol FAC resides 
one word to the left in place of the forced operator 
and its operands, and a new operator resides two 
words to the left. These operators are then con- 
verted and the check is made for the forcing condi- 
tion. 

If at any time the symbol FAC is an operand of a 
forced operator, FAC is replaced by a GT (generated 
temporary storage location) . The GT is then output - 
ted as the operand in place of FAC. FAC again re- 
places the forced operator and operands in the state- 
ment body. New GTs are created as they are needed 
in order to maintain FAC in the statement body. 

At the completion of the scan process the state- 
ment body has been reduced to the symbol FAC; the 
statement body now consists of less than four words. 
The output buffer contains the entire statement con- 
verted to the modified form of Polish notation. 

If in looking for a left operator the scan must by- 
pass the argument list of a call operator, the ele- 
ments of this argument list are stored temporarily 
in a special buffer called the Push-down List. When 
the call operator is forced and placed into the output 
buffer, the Push-down List is then emptied into the 
output buffer in reverse order so that the arguments 
are restored in their original sequence following 
the call operator. 



When the scan detects that the statement consists 
of less than four words (the symbol FAC only) , the 
output buffer is placed into the statement string 
overlaying the symbol FAC, and the scan moves to 
the next statement. 

The statement terminator (semicolon) serves as 
an operator that is scanned as any other operator. 

Figure 16 illustrates the scanning procesiS. 



Errors Detected 



The following error is detected in phase 16: 64. 



PHASE 17 

• Replaces FIND, READ, WRITE, GO TO, and 
RETURN statements with compiler-generated 
coding. 

• Replaces those parts of arithmetic, IF, CALL, 
and statement function statements that im^olve 
subscripting of variables with compiler-generated 
coding. 

• Checks subprograms for a RETURN statement; 
generates the return linkage coding. 

Phase 17 replaces READ, WRITE, and FIND state- 
ments by a call to the appropriate I/O subroutine, 
along with the necessary arguments. Generated 
labels are added to READ and WRITE statements in- 
volving implied DO loops . 

Also, statement function, arithmetic, IF, and 
CALL statements are examined for subscripted var- 
iables. Those parts of these statements that involve 
subscripts are replaced by compiler-generated cod- 
ing. 

In order to produce more efficient coding, phase 
17, by means of an SGT Table, eliminates redundant 
loads of the same subscript offset. Also, the instruc- 
tions used to load literal subscripts are placed im- 
mediately before the indexed operations. 



Errors Detected 



The following error is detected in phase 17: 69. 
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Arithmetic Statement 
A-B+C*D-E 



step 


Contents of 
the string 


Contents of the 
Output Buffer 


Comments 


1 


A = B+C*D-E 

t 
P 




A is not an operator, so the pointer, P, moves to the right. When scanning to the right for on 
operator, non-operators are simply skipped. When scanning for on operator to the left with which 
to force, non-operators are added to the push-down list. 


2 


A = B+C*D-E 
P 




There is no operator to the left with which a forcing condition test can be made; therefore, the 
pointer moves to the right until an operator is encountered. 


3 


A - B+C*D-E; 

t 
P 




Using the forcing table, the pointer indicates the RV (right forcing value) and P - 2 (two positions 
to the left) indicates the LV (left forcing value). The RV of + is OA; the LV of ^ is 3B. OA is not 
equal to or greater than 3B. The left operator is not forced, and the pointer moves to the next 
operator. 


4 


A - B+C*D-E; 

P 
A - B+C*DjE; 
P 




The RV of * is 05; the LV of + is OA. 05 is not equal to or greater then OA.^ The left operator is 
not forced, and the pointer moves to the next operator. 


5 


'CD 


The RV of - is OA; the LV of * is 05. OA is greater than 05. Hence, the left operator is forced. 
*CD is placed in the output buffer and the symbol FAC replaces the outputted operator and 
operonds. The pointer is not moved; an attempt is made to force the new left operator. 


6 


A =' B+FAC-E; 
P 


*CD+B 


The RV of - is OA; the LV of i is OA. OA is equal to OA . Hence, the left operator is forced. 
+B is added to the output buffer. The symbol FAC still replaces the contents of the output buffer. 
The pointer is not moved; on attempt is made to force the new left operator. 


7 


A = FAC-E; 
P 


*CD+B 


The RV of - is OA; the LV of = is 3B. OA is not equal to or greater than 3B. The left operator 
is not forced and the pointer moves to the next operator. 


8 


A = FAC-E; 

t 
P 


*CD+B-E 


The RV of ; is 3C; the LV of - is OA. 3C is greater than OA. Hence, the left operator is 
forced. -E is added to the output buffer. The symbol FAC still replaces the contents of the 
output buffer. The pointer is not moved; an attempt is made to force the new left operator. 


9 


A = FAC; 

f 
P 


*CD+B-E=A 


The RV of ; is 3C; the LV of = is 38. 3C is greater than 3B. Hence, the left operator is 
forced. =A is added to the output buffer . The symbol FAC sti II replaces the contents of the 
output buffer. 


10 


FAC; 


*CD+B-E=A 


The original statement now consists of three words or less. This indicates that the statement has 
been scanned. The symbol FAC is now replaced by the contents of the output buffer. 


11 


*CD+B-E=A; 




The scan is complete. 



Figure 16. FORTRAN Scan Example 

PHASE 18 

• Replaces arithmetic, statement function, CALL, 
and IF statements not involving subscripted var- 
iables by compiler-generated coding. 

• Completes the replacement of arithmetic, state- 
ment function, CALL, and IF statements that do 
involve subscripted variables by compiler- 
generated coding. 

• Optimizes IF statement branch instructions. 

• Handles mixed-mode arithmetic. 



This phase generates the coding necessary to replace 
arithmetic, statement function, CALL, and IF state- 
ments. This phase wholly converts statements of 
these types that include no subscripted variables and 
merely completes the conversion, which was partially 
completed in phase 17 , of statements of these types 
that do include subscripted variables. 

Phase 18 generates the code to perform integer, 
real, and mixed -mode arithmetic. Where possible, 
integer arithmetic is done in-line. The remainder of 
the coding consists of calls to System Library sub- 
routines, followed by argument lists. 

As needed, calls to the FORTRAN -supplied FUNC- 
TION subprograms IFEX and FLOAT are generated. 
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All calls to these subprograms are made LIBFs. 
However, calls to exponentiation subroutines gen- 
erated by phase 18 are made CALLs. 

GTs (generated temporary storage locations) de- 
tected in the string by this phase or generated by 
this phase for storing intermediate results of arith- 
metic calculations are made to agree in mode with 
the function of which they are a part. 



Errors Detected 



Variables that appear in EQUIVALENCE state- 
ments are allocated next, one combined equivalence 
nest at a time. The remaining variables in the 
Symbol Table are finally allocated, real variables 
first, followed by integer variables. 

Phase 19 also computes the core requirements for 
constants after all defined variables have been allo- 
cated. The core requirements for variables and for 
COMMON are then stored in the FORTRAN Commun- 
ications Area. 



There are no errors detected in phase 18. 



Errors Detected 



PHASE 19 



The error detected by phase 19 is either: 65, 66, 
or 67. 



• Fetches the principal print device subroutine for 
use by phases 19-24; also provides a print inter- 
face subroutine for these phases. 

• Allocates storage for COMMON variables. 

• Allocates all storage assignments aligned accord- 
ing to EQUIVALENCE statements. 



PHASE 20 

• Lists any errors that were detected during the 
compilation process. 

• Rearranges the statement string if there v/ere no 
errors detected. 



• Assigns all allocations according to the specified 
precision of the program. 

• Prints the allocations of the variables as they 
are assigned, if requested. 

Phase 19 performs the allocation of the variables 
found in the Symbol Table; i. e. , these variables are 
assigned storage addresses in the object coding. 
These addresses replace the Symbol Table entries 
for the variables. 

The COMMON area resides in high-addressed 
storage during execution of the object program. 
Thus, all COMMON variables are assigned absolute 
Eiddresses within this high-addressed area. The 
variable area resides in storage just below the ob- 
ject program during execution. All variables not 
in COMMON are assigned addresses within this 
area. 

Phase 19 first allocates COMMON variables found 
in the Symbol Table. EQUIVALENCE statements 
that include COMMON variables are examined and 
the addresses are aligned during allocation to obtain 
an equivalence. A check is made to ensure that tlie 
equivalence does not cause a variable or array ele- 
ment to be allocated beyond the beginning of the 
COMMON area. 



Phase 20 deletes from the statement string EQUIV- 
ALENCE statements that do not have an error indica- 
tor and replaces EQUIVALENCE statements that have 
an error indicator by error statements. 

The Symbol Table is scanned twice. The first 
scan detects unreferenced statement numbers and 
lists them on the principal print device. The second 
scan detects undefined variables and lists these also 
on the principal print device. 

The statement string is rearranged (if there were 
no errors in the compilation) so that, if they are 
present, the DEFINE FILE Table, format specifica- 
tion strings, and arithmetic statement functions pre- 
cede the first executable statement. 

The statement string is scanned for error state- 
ments. Two counters are maintained during the scan. 
The first (STLAB) contains the statement number of 
the last numbered statement encountered. The second 
(STCNT) contains a count of the statements encoun- 
tered since the last numbered statement. Compiler- 
generated statements and statement numbers are dis- 
regarded in these counts. 

When an error statement is detected, these coun- 
ters are inserted into the error message along with 
the error number for printing. 

A check is made on all DATA statements. If a data 
constant is defined in COMMON, error 81 is indicated. 



Errors Detected 



The following error is detected in phase 20: 81. 



allocation found in each of these statements is 
entered in the Symbol Table. The allocation and the 
label are then deleted from the string entry. 



PHASE 21 

• Assigns the addresses to statement functions and 
numbered statements; inserts the allocations into 
the string. 

• Creates the subroutine initialization call, if 
required. 

• Calculates the core requirements of the program; 
stores the result in the FORTRAN Communica- 
tions Area. 

• Generates the statement function return linkage 
coding. 

Phase 21 allocates addresses to all numbered state- 
ments and statement functions. The allocation is 
placed into the statement string entry , following the 
statement number or function label. A calculation 
of the object program storage requirements is made 
from the Location Counter at the end of allocation 
and stored in the SOFNS word (word 4) in the FOR- 
TRAN Communications Area. 

If the program being compiled is a subprogram, 
this phase also creates the subroutine initialization 
call, CALL SUBIN, along with its dummy arguments; 
this subroutine directs the insertion of arguments 
during execution of the object program. 



Errors Detected 



There are no errors detected in this phase. 



PHASE 22 

• Inserts the statement allocations into the Symbol 
Table. 

• Lists the statement allocations on the principal 
print device, if requested. 

This phase scans the statement string for statement 
function statements and numbered statements. The 



Errors Detected 



There are no errors detected in this phase. 



PHASE 23 

• Lists the Features Supported by the program as 
indicated in the FORTRAN Communications Area. 

• Lists the System Library subroutines used by the 
program, if requested. 

• Lists the subprogram names found in the Symbol 
Table, if requested. 

I Using the indicators in the CCWD word (word 15) in 
the FORTRAN Communications Area, phase 23 
recreates the control records that were recognized 
In phase 1. These control records (with the exception 
of *IOCS) are listed on the principal print device 
under the title 'FEATURES SUPPORTED. ' 

According to the indicators in the CCWD word, 
phase 23 also alters (for purposes of printing only) 
the names of subprograms in the compiler-generated 
calls to reflect extended precision, if specified. 
(The actual compiler-generated coding is not altered 
until phase 26.) 

If requested, a list is made of all the subprogram 
names that appear in the Symbol Table (all CALLs). 

Phase 23 also scans the statement string, bypass- 
ing all one-word statements and tagging the names in 
the System Library table that are called by the pro- 
gram (all LIBFs). While scanning the System 
Library table, phase 23 checks the indicators in the 
I IOCS word (word 16) in the FORTRAN Communica- 
tions Area. A tag is added to the names of those 
subroutines that service the devices indicated in the 
IOCS word (i. e. , the devices listed in the *IOCS 
control record). The names of the associated con- 
version subroutines (if required) are also tagged. 
The Subroutine table is then scanned and, if requested, 
the tagged System Library subroutine names are 
listed. 
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Errors Detected 



There are no errors detected in this phase. 



PHASE 24 

• Lists the Core Requirements. 

• Lists the constants and their addresses , if 
requested. 

Under the heading 'CORE REQUIREMENTS, ' phase 
24 prints the amounts of storage used by the progranri, 
COMMON area, and variables. The program name 
is printed from the FNAME words (words 11-12) in 
the FORTRAN Communications Area. 

If a list request is specified in the CCWD word 
(word 15), the real and integer constants are con- 
verted to output coding and listed with their relative 
addresses according to the specified precision. 
Real constants are listed first, followed by integer 
constants. 

A check is made to see that the core requirements 
do not exceed 32767 words. If they do, the ERROR 
I word (word 11) in the FORTRAN Communications 
Area is set and output to Working Storage is sup- 
pressed. 



Errors Detected 



There are no errors detected in this phase. 



PHASE 25 

• Builds the program header and data header rec- 
ords; places these records onto the disk in 
Working Storage. 



placed into Working Storage. The file specifications 
are outputted in absolute mode, except for the asso- 
ciated variable, which is in relocatable or afcisolute 
mode. The statement string is also searched for 
DATA statements. All data constants are placed in 
Working Storage in absolute mode. 

The Symbol Table is scanned twice. The first scan 
extracts real constants, computes their allocations, 
and inserts the allocations into the Symbol Tsible. The 
second scan performs the same operations for integer 
constants. All constants are placed into Working 
Storage in absolute mode. 



Errors Detected 



There are no errors detected in this phase. 



PHASE 26 

• Converts the compiled statement string to object 
coding. 

• Places the object program into Working Storage. 

According to the indicators in the CCWD word (word 
15) in the FORTRAN Communications Area, phase 26 
alters the subroutine names referenced by the com- 
piled program to reflect, if necessary, extended pre- 
cision as specified by the user. Phase 23 made the 
same conversion for listing purposes; this phase 
makes the conversion during the generation of the 
object program. 

Phase 26 converts the statement string inti3 the 
object program, which is written in Working Storage. 

At the completion of the output, the termination 
subroutine (OUTER) inserts the necessary data into 
the FORTRAN Communications Area so that the Re- 
covery Phase can complete the compilation. 



• Places real and integer constants into Working 
Storage in absolute mode. 

Phase 25 initially builds the program header and 
data header records. These records and the Buffer 
Communications Area carry information to phase 26. 
The program header and data header records are 
placed In Working Storage. 

The statement string is searched for DEFINE FILE 
statements. These statements are analyzed and then 



Errors Detected 

There are no errors detected in this phase. 
PHASE 27 

• Sets up the switches and parameters needed by 
the Monitor Control Record Analyzer to assume 
control . 

• Prints error messages 86, 96 and 99 



9(5 



This phase is the means by which the compiler re- 
turns control to the monitor system. The phase is 
entered under the following conditions: 

1. Normal end of compilation, with or without 
program errors. 

2. Disk work area exceeded. 

3. Control record trap during input phase. 



In each case the Recovery Phase sets indicators 
in the FORTRAN Communications Area in order to 
inform the monitor system program called next as 
to the results of the compilation. Compilation errors, 
the exceeding of Working Storage, and the trapping of 
a monitor control record all cause the compilation 
output to be suppressed, the non-execute switch 
($NXEQ) to be set, and the non-DUP switch ($NDUP) 
to be set. 

If the compilation is successful, the program 
length, the number of disk blocks used to store the 
program, and the execution address are all trans- 
mitted to DCOM on the master cartridge and to 
DCOM of the Working Storage cartridge if it is other 
than the master cartridge. 



Errors Detected 

There are no errors detected in this phase. 

UPDATING THE MASTER CARTRIDGE 

If the compilation is free of errors, DCOM on the 
master cartridge is updated as follows: 

• The program length in disk blocks is placed in 

# DBCT and in one entry in the # WSCT quintuple 
corresponding to the cartridge that contains 
System Working Storage. 

• The execution address (or entry point address) 
I is placed in #ENTY. 

• One entry in the # FMAT quintuple corresponding 
to the cartridge that contains System Working 
Storage is set to zero to indicate that the Working 
Storage contains DSF. 

In addition, if System Working Storage is on 
other than the master cartridge, # WSCT and 

• FMAT of the cartridge containing System Working 
Storage are updated as described above. 
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SECTION 12. SYSTEM LIBRARY 



FLOWCHARTS 

Write Cartridge ID (ID): 

Fetch Phase IDs From SLET (FSLEN): 

Fetch System Subroutine (FSYSU): 

Write Working Storage Addresses (ADRWS): 

Initialize Disk Cartridge (DISC): 

Read *ID Record and Convert (RDREC): 

Print Cartridge ID (IDENT): 

Call System Print Subroutine (CALPR): 

Copy Disk Cartridges (COPY): 

Delete Core Image Buffer (DLCIB): 

Dump SLET (DSLET): 

Maintenance Program (MODIF): 

SCAT2, Call Processing: 
SCAT2, Interrupt Processing: 

SCATS, Call Processing: 
SCATS, Interrupt Processing: 



Function 



Utility 



Selective Dump on Console Printer 
Selective Dump on 1132 Printer 
Dump 80 Subroutine 

Common FORTRAN 

Test Console Entry Switches 
Divide Check Test 
Functional Error Test 
Overflow Test 

Sense Light Control and Test 
FORTRAN Trace Stop 
FORTRAN Trace Start 
Selective Dump 

FORTRAN Sign Transfer 

Extended Precision Transfer of Sign 
Standard Precision Transfer of Sign 
Integer Transfer of Sign 

Extended Precision Arithmetic/Function 

Extended Precision Hyperbolic 

Tangent 
Extended Precision A**B Function 





FORTRAN Non-disk I/O (SFIO): 


FIOOl- 










FIO03 


UTLOl 


CAKDZ 






FIO04- 


UTL02 








FIO05 


UTL02 


PRNTZ- 






FIO06 


rS): UTL03 


PAPTZ- 






FIO07 


UTL04 


READZ- 






FIO08 


UTL05 


WRTYZ 






FIO09 


UTL06 


PRNZ: 






FlOlO 


UTL07 


PNCHZ: 






FIOll 


UTL08 


TYPEZ: 






FI012 


UTL09 


HOLEZ: 






FI013 


UTLIO 










UTLll- 










UTL13 


The System Library consists of (1) a 


complete 


SCAOl 


library of input/output ( 


Bxcept disk I/O), data 


SCA02- 


conversion, arithmetic, 


and function 


subprograms. 


SCA03 


(2) selective dump subroutines, and (3) special 


SCA04 


programs for disk maintenance. 




SCA05- 


The following is a list of the contents of the 


SCA07 


System Library. 






Name(s) 


Type 


Subtype 


Reference 


Deck ID 


DMTDO, DMTXO 


4 





CALL 


U5B00010 


DMPDl, DMPXl 


4 





CALL 


U5C00010 


DMP80 


4 





CALL 


U5A00010 


DATSW 


4 


8 


CALL 


T3F00010 


DVCHK 


4 


8 


CALL 


T3G00010 


FCTST 


4 


8 


CALL 


T3H00010 


OVERF 


4 


8 


CALL 


T3J00010 


SLITE, SLITT 


4 


8 


CALL 


T3L00010 


TSTOP 


4 


8 


CALL 


T3M00010 


TSTRT 


4 


8 


CALL 


T3N00010 


PDUMP 


4 





CALL 


T3K00010 


ESIGN 


4 


8 


CALL 


S2F00010 


FSIGN 


4 


8 


CALL 


R2roooio 


ISIGN 


4 


8 


CALL 


T3I00010 



ETANH, ETNH 4 
EAXB, EAXBX 4 



CALL 
CALL 



S2I00010 
S2C00010 



Section 12, System Library 99 



Function 



Name( s) 



Extended Precision Arithmetic/Function (Cont'd) 



Type Subtype 



Extended Precision Natural Logarithm 
Extended Precision Exponential 
Extended Precision Square Root 
Elxtended Precision Sine-Cosine 

Extended Precision Arctangent 
Extended Precision Absolute Value 
Function 

Standard Precision Arithmetic/Function 

Standard Precision Hyperbolic 

Tangent 
Standard Precision A**B Function 
Standard Precision Natural Logarithm 
Standard Precision Exponential 
Standard Precision Square Root 
Standard Precision Sine-Cosine 

Standard Precision Arctangent 
Standard Precision Absolute Value 
Function 

Common Arithmetic/Function 

Fixed Point (Fractional) Square Root 
Integer Absolute Function 
Floating Binary /EBCDIC Decimal 
Conversions 



System 

LOCAL/SOCAL Flipper 
DCOM Update 

FORTRAN Trace 

Extended Floating Variable Trace 
Fixed Variable Trace 
Standard Floating IF Trace 
Extended Floating IF Trace 
Fixed IF Trace 

Standard Floating Variable Trace 
GOTO Trace 

FORTRAN I/O 



Non-Disk Formatted FORTRAN I/O 



FORTRAN Find 



ELN, EALOG 
EEXP, EXPN 
ESQR, ESQRT 
ESIN, ESESTE, 

ECOS, ECOSN 
EATN, EATAN 

EABS, EAVL 



FTANH, FTNH 
FAXB, FAXBX 
FLN, FA LOG 
FEXP, FXPN 
FSQR, FSQRT 
FSIN, FSINE, 

FCOS, FCOSN 
FATN, FATAN 

FABS, FAVL 



XSQR 

lABS 

FBTD (binary to 
decimal), FDTB 
(decimal to binary) 



FLIPR 
SYSUP 



SEAR, SEAFSX 

SIAR, SIARX 

SFIF 

SEIF 

SIIF 

SFAR, SFARX 

SGOTO 



SFIO, SIOI, SIOAI, 
SIOF, SIOAF, 
SIOFX, SCOMP, 
SWRT, SRED, 
SIOIX 

SDFND 


















Reference 

CALL 
CALL 
CALL 

CALL 
CALL 

CALL 



Deck ID 

S2E00010 
S2D00010 
S2H00010 

S2G00010 
S2B00010 

S2A00010 



CALL 


R2I00010 


CALL 


R2CCI0010 


CALL 


R2E00010 


CALL 


R2DCI0010 


CALL 


R2HCI0010 


CALL 


R2G00010 


CALL 


R2B(»0010 


CALL 


R2A00010 


CALL 


TICOOOIO 


CALL 


TIBOOOIO 


CALL 


TIAOOOIO 


. 


U5D00010 


CALL 


USE 00010 


LIBF 


S2J00010 


LIBF 


T6B0G010 


LIBF 


R2K00010 


LIBF 


S2K00010 


LIBF 


T6C00010 


LIBF 


R2J00010 


LIBF 


T6A00010 



LIBF 
LIBF 



T4C00010 
T4B00010 
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Function 



Name(s) 



Type Subtype 



Reference 



Deck ID 



Disk FORTRAN l/O 



Unformatted FORTRAN I/O 



SDFIO, SDRED, 

SDWRT, SDCOM, 

SDAF, SDF, SDI, 

SDIX, SDFX, 

SDAI 3 1 

UFIO 3 1 

URED, UWRT, UIOI, UIOF, 

UIOAI, UIOAF, UIOFX, UIOIX, 

UCOMP, BCKSP, EOF, REWND 



LIBF 
LIBF 



T4A00010 
T4D00010 



Common FORTRAN 

FORTRAN Pause 

FORTRAN Stop 

FORTRAN Subscript Displacement 

Calculation 
FORTRAN Subroutine Initialization 
FORTRAN Trace Test and Set 

FORTRAN I/O and Conversion 

FORTRAN Card 1442 (Read/Punch) 
FORTRAN Card 1442-5 (Punch) 
FORTRAN Card 2501 (Read) 
FORTRAN Paper Tape 
FORTRAN 1132 Printer 
FORTRAN 1403 Printer 
FORTRAN Keyboard/Typewriter 
FORTRAN Typewriter 
FORTRAN Hollerith to EBCDIC 

Conversion 
FORTRAN Get Address Subroutine 
FORTRAN EBCDIC Table 
FORTRAN Hollerith Table 

Extended Precision Arithmetic/Function 

Extended Precision Get Parameter 
Extended Precision A**I Function 
Extended Precision Divide 
Extended Precision Float Divide 
Extended Precision Float Multiply 
Extended Precision Subtract Reverse 
Extended Add-Subtract 

Extended Load-Store 



Standard Precision Arithmetic/Function 

Standard Precision Get Parameter 
Standard Precision A**I Function 
Standard Precision Divide Reverse 
Standard Precision Float Divide 
Standard Precision Float Multiply 
Standard Precision Subtract Reverse 



PAUSE 


3 


STOP 


3 


SUBSC 


3 


SUBIN 


3 


TTEST, TSET 


3 


CARDZ 


5 


PNCHZ 


5 


RE ADZ 


5 


PAPTZ 


5 


PRNTZ 


5 


PRNZ 


5 


TYPEZ 


5 


WRTYZ 


5 


HOT.FZ 


3 


GETAD 


3 


EBCTB 


3 


HOLTB 


3 


EGETP 


3 


EAXI, EAXK 


3 


EDVR, EDVRX 


3 


EDIV, EDIVX 


3 


EMPY, EMPYX 


3 


ESBR, ESBRX 


3 


EADD, ESUB, 




EADDX, ESUBX 


3 


ELD, ELDX, ESTO, 




ESTOX 


3 


FGETP 


3 


FAXI, FAXIX 


3 


FDVR, FDVRX 


3 


FDIV, FDIVX 


3 


FMPY, FMPYX 


3 


FSBR, FSBRX 


3 



2 
2 







3 
3 
3 
3 
3 
3 
3 
3 

3 
3 
3 
3 



2 
2 
2 
2 
2 
2 

2 





LIBF 


T2A00010 


LIBF 


T2B00010 


LIBF 


T2D00010 


LIBF 


T2C00010 


LIBF 


T2E00010 


LIBF 


T5A00010 


LIBF 


T5G00010 


LIBF 


T5J00010 


LIBF 


T5F00010 


LIBF 


T5H00010 


LIBF 


T5I00010 


LIBF 


T5K00010 


LIBF 


T5L00010 


LIBF 


T5D00010 


LIBF 


T5C00010 


_ 


T5B00010 


- 


T5E00010 


LIBF 


SIEOOOIO 


LIBF 


SIBOOOIO 


LIBF 


SIDOOOIO 


LIBF 


SICOOOIO 


LIBF 


SIGOOOIO 


LIBF 


SIHOOOIO 


LIBF 


SIAOOOIO 


LIBF 


SIFOOOIO 


LIBF 


RIEOOOIO 


LIBF 


RIBOOOIO 


LIBF 


RIDOOOIO 


LIBF 


RICOOOIO 


LIBF 


RIGOOOIO 


LIBF 


RIH 00010 
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Function Nanie(s) 

Standard Precision Arithmetic/Function (Cont'd) 



Type Subtype 



Reference 



Deck ID 



Standard Add/Subtract 

Standard Load/Store 

Standard Precision Fraction Multiply 

Common Arithmetic/Function 

Fixed Point (Fraction) Double Divide 
Fixed Point (Fraction) Double 

Multiply 
Sign Reversal Function 
Integer to Floating Point Function 
Floating Point to Integer Function 
I**J Integer Function 
Normalize 
Floating Accimiulator Range Check 

Interrupt Service 

Card Input/Output (No Error 

Parameter) 
Card Input /Output (Error 

Parameter) 
Disk Input/Output (No Preoperative 

Parameter Checking) 
Disk Input/Output (No Simultaneity) 
High-Speed Disk Input/Output 

(Simultaneity) 
Paper Tape Input/Output 
Single Frame Paper Tape Input/Output 
Simultaneous Paper Tape Input/Output 
Plotter Output 
1132 Printer Output 
1403 Printer Output 

Keyboard/Console Printer Input/Output 
Console Printer Output 
1231 Optical Mark Page Reader 
2501 Card Input (No Error Parameter) 
2501 Card Input (Error Parameter) 
1442 Card Output (No Error Parameter) 
1442 Card Output (Error Parameter) 



FADD, FSUB, 
FADDX, FSUBX 

FID, FLDX, 
FSTO, FSTOX 

XMDS 



XDD 

XMD 

SNR 

FLOAT 

IFK 

FKI, FKIX 

NORM 

FARC 



CARDO 

CARDl 

DISKZ* 
DISKl* 

DISKN* 
PAPTl 
PAPTX 
PAPTN 
PLOTl 
PRNTl 
PRNT3 
TYPED 
WRTYO 
OMPRl 
READO 
READl 
PNCHO 
PNCHl 



5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 



2 
2 


2 

2 



















LIBF 


RIAOOOIO 


LIBF 


RIFOOOIO 


LIBF 


S3I00010 


LIBF 


S3G00010 


LIBF 


S3H00010 


LIBF 


S3F00010 


LIBF 


S3C00010 


LIBF 


S3D00010 


LIBF 


S3B00010 


LIBF 


S3E00010 


LIBF 


S3A00010 



LIBF 


U2A00010 


LIBF 


U2B00010 


Special 


_ 


LIBF 


- 


LIBF 


_ 


LIBF 


U2]000010 


LIBF 


U2F00010 


LIBF 


U2E00010 


LIBF 


U2G00010 


LIBF 


U2J00010 


LIBF 


U2K00010 


LIBF 


U2N00010 


LIBF 


U2O00010 


LIBF 


U2C00010 


LIBF 


U2L00010 


LIBF 


U2M00010 


LIBF 


U2H00010 


LIBF 


U2I00010 



*Note: Whereas DISKZ, DISKl, and DISKN are not strictly ISS subroutines (they are stored in the System Area 
by the System Loader), they are included in this list because they possess many characteristics of ISS 
subroutines. 
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Function 



Name(s) 



Conversion 




16 bits to 6 Decimal Characters (Card 




Code) 


BINDC 


32 bits to 11 Decimal Characters 


BIDEC 


16 Bits to 4 Hexadecimal Characters 




(Card Code) 


BINHX 


6 Decimal Characters (Card Code) 




to 16 bits 


DCBIN 


11 Decimal Characters to 32 bits 


DECBI 


EBCDIC to Console Printer Output 




Code 


EBPRT 


Card Code to EBCDIC, EBCDIC to 




Card Code 


HOLEB 


Card Code to Console Printer 




Output Code 


HOLPR 


4 Hexadecimal Characters (Card 




Code) to 16 bits 


HXBIN 


PTTC/8 to EBCDIC, EBCDIC to 




PTTC/8 


PAPEB 


PTTC/8 to Card Code, Card Code 




to PTTC/8 


PAPHL 


PTTC/8 to Console Printer Output 




Code 


PAPPR 


Card Code to EBCDIC, EBCDIC to 




Card Code 


SPEED 


Fast multi-purpose conversion 


ZIPCO 


Conversion Tables 




EBCDIC and PTTC/8 Table 


EBPA 


Card Code Table 


HOLL 


Console Printer Output Code Table 


PRTY 


EBCDIC to IBM Card Code 


EBHOL 


1403 Code to Console Printer Code 


PT3CP 


Console Printer Code to 1403 Code 


CPPT3 


1403 Code to EBCDIC 


PT3EB 


EBCDIC to 1403 Code 


EBPT3 


IBM Card Code to Console Printer 




Code 


HOLCP 


Console Printer Code to IBM Card 




Code 


CPHOL 


Console Printer Code to EBCDIC 


CPEBC 


EBCDIC to Console Printer Code 


EBCCP 


PTTC/8 Code to IBM Card Code 


PTHOL 


IBM Card Code to EBCDIC 


HT.EBC 


IBM Card Code to 1403 Printer Code 


HLPT3 


SCA Subroutines 






SCATl 




PRNT2 




HOLCA 




STRTB 




SCAT 2 




SCATS 



Type Subtype 



Reference 



Deck ID 



3 
3 

3 

3 

3 

3 

3 

3 

3 

3 
3 



3 
3 
3 
3 
3 
3 

5 
5 
3 
3 
5 
5 









































LIBF 


U4B00010 


LIBF 


U4A00010 


LIBF 


U4C00010 


LIBF 


U4G00010 


LIBF 


U4H00010 


LIBF 


U3A00010 


LIBF 


U3B00010 


LIBF 


U3C00010 


LIBF 


U3D00010 


LIBF 


U3E00010 


LIBF 


U3F00010 


LIBF 


U3G00010 


LIBF 


U3H00010 


LIBF 


U3I00010 


„ 


U4K00010 


- 


U4P00010 


- 


U4Q00010 


- 


U4J00010 


- 


U4R00010 


- 


U4F00010 


- 


U4S00010 


- 


U4L00010 


- 


U4O00010 


- 


U4E00010 


- 


U4D00010 


- 


U4I00010 


- 


U4T00010 


- 


U4M00010 


"" 


U4N00010 


LIBF 


WIFOOOIO 


LIBF 


WIEOOOIO 


- 


WICOOOIO 


- 


WIGOOOIO 


LIBF 


WIHOOOIO 


LIBF 


WIIOOOIO 
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Function 
SCA Subroutines (Cont'd) 



Nam(3(s) 



Type Subtype 



Mainline 

Initialize Disk Cartridge 
Print Cartridge ID 
Write Cartridge ID 
Copy Disk Cartridges 
Write WS Addresses 
Delete CIB 

Maintenance Program 
Dump SLET 
Paper Tape Utility 

System/Miscellaneous 

Call System Print Subroutine 
Fetch Phase IDs from SLET 
Fetch System Subroutine 
Read *ID Record and Convert 

Interrupt Level Subroutines 

Interrupt Level Zero Subroutine 
Interrupt Level One Subroutine 
Interrupt Level Two Subroutine 
Interrupt Level Three Subroutine 
Interrupt Level Four Subroutine 

1627 Plotter Subroutines 

Scale (Extended Prec.) 
Scale (Std. Prec.) 
Grid (Extended Prec.) 
Grid (Std. Prec.) 
Plot (Extended Prec, ) 
Plot (Std. Prec.) 
Point Characters 
Character (Extended Prec.) 
Character (Std. Prec.) 
Annotation (Extended Prec.) 

Annotation (Std. Prec.) 

Scaler (Extended Prec.) 
Scaler (Std. Prec.) 
Interface 
Pen Mover 
1627 Plot 



HXCV 

EBC48 

HOL48 



DISC 

IDENT 

ID 

COPY 

ADRWS 

DLCIB 

MODIF 

DSLET 

PTUTL 



CALPR 
FSLEN 
FSYSU 
RDREC 



ILSOO 

ILSOl 

ILS02* 

ILS03 

ILS04* 



SCALE 

SCALE 

EGRID 

FGRID 

EPLOT 

FPLOT 

POINT 

ECHAR 

FCHAR 

ECHRX, ECHRI, 

VCHRI 
FCHRX, FCHRI, 

WCHRI 
ERULE 
FRULE 
PLOTI 
XYPLT 
PLOTX 



2 
2 
2 
2 
2 
2 
2 
2 
2 



4 
4 
4 
4 



4 
4 
4 
4 
4 
4 
4 
4 
4 



















Reference Deck ID 



wmoooio 

WL^IOOOIO 
WIBOOOIO 



U6C00010 
U6F00010 
U6G00010 
U6B00010 
U6A00010 
U6D00010 
U6H00010 
U6E 00010 
U6I00010 



CALL 
CALL 
CALL 
CALL 



CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 

LIBF 

LIBF 
LIBF 
LIBF 
LIBF 
LIBF 
LIBF 



U7A00010 
U7B00010 
U7B00010 
U7C00010 



UIAOOOIO 
UIBOOOIO 
UICOOOIO 
UIDOOOIO 
UIEOOOIO 



VIKOOOIO 

VIOOOOIO 

VICOOOIO 

VIH 00010 

VID 00010 

VIIOOOIO 

VIMOOOIO 

VIAOOOIO 

VIFOOOIO 

VIBOOOIO 

VIGOOOIO 
VIEOOOIO 
VIJOOOIO 
VIKOOOIO 
VIPOOOIO 
VILOOOIO 



*TheBe are special versions that consist only of IBT information. 
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Function 



Nanie(s) 



T£2e 



Subtype 



Reference Deck ID 



Disk I/O 

Sequential Access 
Direct Access 
ISAM Load 
ISAM Add 
ISAM Sequential 
ISAM Random 



SEQOP, SEQIO, 


3 





LIBF 


ZSA 


SEQCL 










DAOPN, DAIO, 


3 





LIBF 


ZDA 


DACLS 










ISLDO, ISLD, 


3 





LIBF 


ZIL 


ISLDC 










ISADO, ISAD, 


3 





LIBF 


ZIA 


ISADC 










ISEQO, ISETL, 


3 





LIBF 


ZIS 


ISEQ, ISEQC 










ISRDO, ISRD, 


3 





LIBF 


ZIR 


ISRDC 











RPG Decimal Arithmetic 



Add Subtract and Numeric 


RGADD, RGSUB, 


3 





LIBF 


YAI 


Compare 


RGNCP 










Multiply 


RGMLT 


3 





LIBF 


YMV 


Divide 


RGDIV 


3 





LIBF 


YDV 


Move Remainder 


RGMVR 


3 





LIBF 


YMR 


Binary Conversion 


RGBTD, RGDTB 


3 





LIBF 


YCN 


RPG Sterling and Edit 












Sterling Input Conversion 


RGSTI 


3 





LIBF 


YSI 


Sterling Output Conversion 


RGSTO 


3 





LIBF 


YSO 


Edit 


RGEDT 


3 





LIBF 


YED 



RPG Move 

From I/O Buffer to Core 
From Core to I/O Buffer 
MOVE Operation 
MOVEL Operation 
RPG Compare 

Alphameric 
RPG Indicators 



RGMVl, RGMV5 
RGMV2 
RGMV3 
RGMV4 



RGCMP 



LIBF 


YMl 


LIBF 


YM2 


LIBF 


YM3 


LIBF 


YM4 



LIBF 



YAC 



Test 

Set Resulting On 

Set On 

Set Off 

Test for or Blank 



RGSIl 
RGSI2 
RGSI3 
RGSI4 
RGSI5 



3 





LIBF 


YIl 


3 





LIBF 


YI2 


3 





LIBF 


YI3 


3 





LIBF 


YI4 


3 





LIBF 


YI5 



RPG Miscellaneous 

Test Zone 
Convert to Binary 
Object Time Error 
Blank After 
Alternating Sequence 
(User-Written) 



RGTSZ 
RGCVB 
RGERR. 
RGBLK 
ALTSE 



3 





CALL 


YTZ 


3 





CALL 


YCB 


3 





LIBF 


YER 


3 





LIBF 


YBK 


- 


- 


LIBF 


- 
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INTERRUPT LEVEL SUBROUTINES 



INTERRUPT LEVEL TWO SUBROUTINE (ILS02) 

This interrupt level subroutine is actually a part 
of the Skeleton Supervisor. However, the Core 
Load Builder requires that a dummy ILS for level 
two be stored in the System Library. The dummy 
supplied by IBM is stored in the System Library 
as subtype 1, type 7. The coding in the dummy 
ILS02 is immaterial, because the Core Load Builder 
merely bypasses it when it discovers the subtype 1. 

If the user supplies his own ILS02, it must be 
stored in the System Library as subtype 0, type 7. 



INTERRUPT LEVEL FOUR SUBROUTINE (ILS04) 

This interrupt level subroutine is actually a part 
of the Skeleton Supervisor. However, the Core 
Load Builder requires that a dummy ILS for level 
four be stored in the System Library. The dummy 
supplied by IBM is stored in the System Library 
as subtype 1, type 7. The dummy ILS04 consists 
only of a nine-word table followed by a zero, as 
follows: 



» li 


!> 35 i= 


il JS 


« » « » is 




D.C. , 


A0.4.M. . . 


, .i!,e.s.e.R.v.£.D. 




P.C, . 


/.0.4.3.4. . . 


, .R.E.s.e.e.v,E.a , . 




D.C. . 


/,0.4.3.4. . . 


, ./i,e,s.£.e.i/.E.D. 




D.C. . 


Al^A^ ^ 


, .t,2.3J. .................... 




P.C, , 


AM.3.D. , , 


. .14.)i,i, , 




ac. . 


//0/.i.S. , , 


, .2.5.0.1 




PC. , 


/,07.3.5: , , 


, .1.4.4.2. . . , . , 




P,C, , 


A04.3.(,. , , 


, .K,e.Y.e.o.A,e.D.//:.oM.3.o,u.£. .p.r.i.n.t.ejs. 




D.C. , 


/. 0.4.3.7. . , 


.t.l.3.4./.U0.5.5. 




D.C. 


n. 


. .£.MD.-.O.F.-,T.A.BL,e. .1 .N.D,I.C.A.T.O.R. . . 












The leftmost eight bits of each word contain the 
relative entry point to the ISS for the associated 
device, and the rightmost eight bits contain @ISTV 
plus the ISS number. These eight words are used 
by the Core Load Builder to construct the IBT for 
interrupt level 4. 



If the user supplies his own ILS04, it must be 
stored in the System Library as subtype 0, type 7. 



MAINLINE PROGRAMS 



DISK INITIALIZATION PROGRAM (DISC) 

The disk initialization program has three basic 
functions: 

• Establishes that the cartridges specified in the 
*ID record have no more than 3 defective cyl- 
inders and that cylinder is not defective 

• Changes the cartridge labels as specified in the 
*ID record 

• Initializes portions of sectors 0, 1, and 2 to set 
up the cartridges specified as non-system car- 
tridges 

DISC first reads an *ID record to obtain FROM 
and TO cartridge IDs. It then reads current car- 
tridge IDs from the master cartridge DCOM 
(#PCID) and compares them with the FROM IDs 
specified in the *ID record. If there are any IDs 
not found, an error message is printed on the 
principal print device. 

DISC next seeks home on all drives to be 
initialized (up to four) , and writes each of 3 
patterns to an entire cylinder, one sector at a time. 
The patterns used, in sequence, are /AAAA, /5555, 
and /OOOO, 

DISC then reads back each sector and compares 
it with the pattern written (Including the sector ad- 
dress) . If no error occurs , DISC writes the next 
pattern to the same cylinder. 

If the error bit of the DSW is set at any time or 
if the data read does not compare with the pattern 
written, DISC repeats the write/read sequence for 
the entire cylinder 50 times, using the same pattern. 

If a second error occurs, DISC puts the address 
of the first sector on the cylinder in which the error 
occurred in the defective cylinder table. 

DISC performs this write/read sequence for 
each of the 203 cylinders. 
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If (1) cylinder zero is defective, (2) more than 
three cylinders are defective, or (3) it is impossible 
to write a sector address, DISC types out an error 
message indicating that the cartridge may not be 
used. 

If the cartridge is good, DISC writes the defective 
cylinder addresses, if any, in the first three words 
of sector @IDAD. Wherever a defective cylinder 
does not exist, /t)658 is written in the first three words 
of sector @IDAD. DISC also writes the cartridge ID 
in word four of sector @IDAD, writes zeros in words 
7-30, and stores an error message program beginning 
in word 31. If a cold start is attempted using this 
non-system cartridge, control is passed from the 
Cold Start Loader to the error message program 
instead of the Cold Start Program. An error mes- 
sage is printed on the Console Printer and no cold 
start is effected. 

DISC initializes the following words of DCOM 
(sector @DCOM): 



Location 


Value Inserted 


#ANDU 


/0200 


#BNDU 


/0200 


#FPAD 


/0020 


#CIDN 


Cartridge ID 


#CIBA 


/0008 


#ULET 


/0002 



DISC initializes LET (sector 2) as follows: 



Word 
1 
2 
3 
4 
5 
6 



Contents 
/OOOO 
/0020 
/OOOO 
/0138 
/OOOO^ 
/7II2' 



/4528 
/0620 



DISC terminates with a CALL EXIT. 



The name 

IDUMY (in 

name code) 



subroutine FSLEN. This lOAR header is used to 
call in the principal print device subroutine when 
it is needed by FSYSU. 

Next, IDENT reads DCOM to obtain #PCrD, the 
table of disk cartridge IDs and their related physical 
drive numbers. 

IDENT then prints the cartridge ID and physical 
drive number from the table until all available car- 
tridge IDs have been printed. 

IDENT terminates with a CALL EXIT. 



CHANGE CARTRIDGE ID (ID) 

This program changes the ID on up to four disk car- 
tridges. 

The lOAR headers for the principal input device, 
principal print device, and principal conversion 
subroutines are obtained from SLET on the system 
cartridge. These subroutines are used for input/ 
output. 

Using the RDREC subroutine, the *ID record is 
fetched. RDREC also builds two tables in core 
storage from the FROM -TO fields of the *ID record, 
one in packed EBCDIC for printer output, the other 
in binary for matching the cartridge IDs. DCOM 
is fetched from the master cartridge to obtain the 
cartridge ID table (fCEDN) . 

Each drive on the system is selected. If the 
selected drive is present, the cartridge ID is 
fetched. The ID is matched with the IDs in #CIDN. 
If no matching ID is found, the ID is printed with 
an error message and the job is terminated. The 
cartridge ID of the selected drive is matched to the 
IDs in the FROM-TO table. When a match occurs, the 
cartridge ID is changed to the 'TO' ID; the ID for 
the cartridge in #CIDN is changed and the 'TO' ID 
is written onto the selected drive. IDs that do not 
match entries in the FROM-TO table are byi)assed. 

When all IDs have been processed, #CIDN is 
written back to the master cartridge and the FROM- 
TO table is printed. After printing the FROM-TO 
table, ID terminates with a CALL EXIT. 



PRINT CARTRIDGE ID (IDENT) 

This program prints out the ED and the physical drive 
number of each disk cartridge mounted on the system . 

IDENT first fetches the principal print device 
subroutine lOAR header from SLET using the 



DISK COPY (COPY) 

This program copies the contents of one or more 
cartridges (except words 0-3 of sector @IDAD) onto 
from one to four other cartridges. 

COPY first fetches the system device subroutine 
lOAR headers from SLET using the RDREC subroutine. 
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The system device subroutines are called in by the 
RDREC subroutine as they are needed by the pro- 
gram. The RDREC subroutine also reads the *ID 
record and converts the numbers to binary and 
stores them in the FROM-TO table. 

COPY then checks the FROM and TO field IDs 
to ensure that each specified cartridge is available. 
An error message is printed for the unavailable 
FROM or TO cartridges. 

All available FROM-TO cartridge combinations 
are then processed. Sectors thru 7 of cylinder 
of each source cartridge are read and written, ex- 
cept for the defective cylinder table, to each speci- 
fied destination cartridge. Sectors thru 7 of the 
next 199 logical cylinders of each source cartridge 
are copied, 4 sectors at a time to each specified 
destination cartridge. 

One cartridge at a time is processed and at the 
end of each, a check for a Keyboard interrupt is 
made. If ^ny occurred during the previous copy, 
the interrupt is now processed. 

After all cylinders from the specified cartridge 
have been copied, a completion message is printed 
using the principal print device subroutine. 

COPY terminates with a CALL EXIT. 



DLCIB uses the subroutine RDREC to obtain 
the system device subroutine lOAR headers from 
SLET on the master cartridge and to fetch the *rD 
record containing the affected cartridge ED. The 
RDREC subroutine also converts the specified 
cartridge ID to binary. 

If the specified cartridge is not present, DLCIB 
prints an error mess^e and terminates with a 
CALL EXIT. 

The CIB of the specified cartridge is deleted. 
The User Area and Working Storage are moved 
one cylinder closer to cylinder zero. Accordingly, 
the file -protection address for the specified car- 
tridge is altered in the $FPAD quintuple in COMMA. 

DCOM of the master cartridge is then read. 
The sector addresses of the CIB, User Area, and 
Working Storage are altered. DCOM is written 
back to the master cartridge and to the altered 
cartridge. 

DLCIB prints the new User Area and Working 
Storage addresses for the specified cartridge using 
the principal print device subroutine. 

DLCIB terminates with a CALL EXIT. 



DUMP SLET TABLE (DSLET) 



DELETE CIB (DLCIB) 

This program deletes the Core Image Buffer (CIB) 
from a non-system cartridge to provide additional 
disk storage area for the User Area and Working 
Storage. An *ID record is used to specify the car- 
tridge on which the CIB is to be deleted. 



DSLET dumps the System Location Equivalence 
Table (SLET) to the principal print device. Four 
4-word SLET entries are printed per line. 

DSLET reads the SLET table into a 640-word 
buffer in core stor^e, prints the SLET table using 
the principal print device subroutine, and terminates 
with a CALL EXIT. 
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1130 Disk Data File Conversion Program 

The following information is designed to assist in 
understanding the program flowcharts by presenting 
an overall view of the purpose of each major part of 
the program. 

FLOWCHARTS ; 

CHART A 
CHART B 
CHART C 
CHART D 
CHART E 
CHART F 
CHART G 



EBCDIC coded decimal field of variable 
length to a one word binary value and ad- 
vances the field pointer beyond the field 
just converted. It accounts for leading 
blanks in a File Description (D) card field 
and causes immediate program termination 
when a D-card field error is detected. 
SEARC- Subroutine which checks the file name re- 
ferenced by the field pointer for validity, 
packs the file name, adds the disk data 
format indicator to the packed file name 
and performs the LET/FLET search for 
the file. 

ERRORS DETECTED; The errors detected in part 



1 are FOl, F02, 
F). 



F03, F06 and F08 (see Appendix 



PROGRAM NAME; 



DFC^fV 



GENERAL PROGRAM DESCRIPTION ; The program PART 2: 

converts one 1130 FORTRAN and/or Commercial 
Subroutine Package (1130-SE-25X) disk data file to 
one 1130 RPG disk data file. FORTRAN files created 
using logical unit number 10 cannot be converted by 
DFCNV. Converted files cannot be processed as 
ISAM files. The program accepts all FORTRAN and 
Commercial Subroutine Package (CSP) disk data 
formats and a two -word integer format (see Appen- 
dix E). The input data may be a disk data file or 
the corresponding cards in card data format. All 
printing is performed on the principal printer. The 
subroutine DISKl is used to perform all disk I/O 
operations. 



PART 1; 

ENTRY POINT : FCOOO (CHART A) 

The system device subroutines for the principal in- 
put and print devices and input data conversion are 
read into core and pertinent interrupt pointers are 
set. 

• The File Description card (D in column 72) is 
read and printed, and its fields are diagnosed for 
errors. 

• LET/FLET searches are performed for input 
(if disk file input specified) and output files and 
calculated file sizes are checked against actual file 
sizes. 

INTERNAL SUBROUTINES; 



ENTRY POINT ; FC016 (CHARTS B and C) 

• The Field Specification cards (S in column 72) are 
read and printed, each field specification is diagno- 
sed for errors and the specification information is 
compressed and saved. 

• If it is present, the Commercial Subroutine Pack 
age A3 format translation table (A in column 72) is 
read and printed and the 40 translation characters 
are saved. 

• The end-of~file card (/ * in column 1 and 2) is 
read and printed. 

Note; A general flowchart of the compress/save op- 
eration described above has been provided in Chart 
C although this operation is in fact specific to field 
type. See Appendix for a description of each field 
type compression. 



INTERNAL SUBROUTINE; 



CONVT; Subroutine is described in part 1. 



ERRORS DETECTED: 



The errors detected in part 2 
It is noted that only one F04 



are F04, F06 and F07 
message is printed for each field specification in 
error although more than one error may occur with 
in a field specification. 



FC015 - 



CONVT - 



The card read and/or print function in this 
section of the program is not specifically 
subroutinized, but it is the general card 
input function for the entire program. 
Subroutine which converts a right-justified 



PART 3: 

ENTRY POINT: rC026 (CHART D) 

• Final error checking is performed and program 



toy. 1 



termination is effected if any control card or speci- 
fication errors have occurred. 

• The input data is read, converted and inserted 
into the RPG data file. 

• The operation complete message is printed and 
control is returned to the supervisor. 



INTERNAL SUBROUTINE: 

CDDSK - Subroutine which converts card data for- 
matted data to disk data format when card 
input is specified and relocates input data 
so that it appears to be disk data. 

Each of the field conversion subroutines is discussed 
under part 4. 



ERRORS DETECTED; The errors detected in part 
3 are F05, F06 and F09. 



NOTE : The Disk File protection deliminates 
$ FPAD - $FPAD+4 of COMMA are modified during 
the conversion portion of DFCNV. These modified 
COMMA words must be restored prior to further 
processing if unforseen problems (aecidential imme- 
diate stop) cause abnormal termination of DFCNV 
These words are restored by DFCNV under normal 
program termination following successful conver- 
sion. 



PART 4 

FIELD CONVERSION SUBROUTINE (CHARTS E , F 
and G): 

• These subroutines are designed to retrieve the 
input field and use the specifications contained in the 
compression area to convert the fielcj. 
« The internal subroutine INSRT (described below 
and on CHART G) is called by each conversion sub- 
routine to place the converted field into the output 
record. Control is then returned to the mainline 
part of the program (part 3) to convert the next 
field. 



I -conversion (ICNVT): The sign of the integer is 
saved and its absolute value is converted to 5 deci- 
mal digits (by repeated division by 10). Each digit 
is placed with positive zone (F) into a 31 word work 
area which has been initialized to /FO, The field is 
then placed in the RPG record. 



J-conversion (JCNVT); The sign of the integer is 
saved and its absolute value is converted to 10 deci- 
mal digits (by repeated division by 10). The deci- 
mal conversion is performed by first determining 
the range of the two -word integer, converting the 
low order 7 decimal digits, then converting the high 
order 3 decimal digits after adjusting for the range 
factor. Each digit is placed with positive zone (F) 
into a 31 word work area which has been initialized 
to /FO. The field is then placed in the RPG record. 



D-conversion (DCNVT): The sign of the CSP Dl 
field is saved (from the low order of the field) smd the 
ones' complement of the low order word is taken. 
Each digit (see Dl data format, Appendix E) is placed 
with positive zone (F) into a 31 word work area which 
has been initialized to /FO. The field is then placed 
in the RPG record. 

E -conversion (ECNVT): The CSP D4 field (see Ap- 
pendix E) is converted to Dl format and placed in a 
200 work work area. The subroutine DCNVT is; 
then used to place the field in the RPG record. 

B(C) -conversion (BCNVT): The subroutine INSRT is 
called to insert the field into the RPG record (not 
shown on charts). 

X -conversion (XCNVT); The input data pointer is 
adjusted to bypass the number of words specified 
(not shown on charts). 

F -conversion (FCNVT): Each word of the input field 
is decoded into 3 translation table displacements by 
means of the following formulae. 

I>0, Nl=(l/1600)+20 

I > 0, Nl=(I+32000)/1600 

N2=(I-(Nl-20) *1600)/40 
N3=I-(Nl-20) *1600-(N2*40) 
where I represents the input word and Nl, N2 and N3 
represent the translation table displacements relative 
to card column 40 of the first, second and third chara- 
cters. 

The 3 translation characters are then retri<5ved 
and placed in the RPG record. This procedure: con- 
tinues until the entire input field has been converted. 
R -conversion (RCNVT): The real number is loaded 
into the FAC and normalized. If the mantissa is 
zero, the 31 word work area (which has been initia- 
lized to /FO) is used to fill the RPG field and control 
is returned to the mainline part of DFCNV. If the 
mantissa is non-zero, the sign of the field is saved 
and the absolute value of the mantissa is used in con- 
junction with rBTN2 and MPY to obtain the decimal 
digits. Each digit is placed with positive zone (T) 
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into a 31 word work area which has been initialized to 
/FO. The field is then placed in the RPG record. 
The RPG field is set to zeroes or nines if the 
real number being converted is too small or too large 
respectively to fit into the RPG field. 



INTERNAL SUBROUTINES; 

INSRT- Subroutine which places the converted field 
into the RPG record. It uses the technique 

of placing one eight -bit character (or two 
four -bit packed digits) into the RPG field 
at a time , alternating between the left and 
right halves of a word. If a numeric field 
is packed, two decimal digits are retrieved 
at a time; if unpacked, single digit retri- 
eval is used. Alphabetic retrieval corres- 
ponds to that of numeric unpacked except 
that characters are returned from units of 
1, 2 or 3 words rather than a one character 
per word work area. Once a numeric field 
has been retrieved, the sign sign is added to 
the Field (F=positive', D=negative). See 
DFCNV field type examples section of IBM 
1130 Disk Monitor System, Version 2, Pro- 
gramming and Operator's Guide, Form C26- 
Form C 26 -37 17. 



FBTN2 



MPY 



Subroutine which generates the first deci- 
mal digit and the decimal exponent of a 
real number field (adapted from RBTD 
subroutine, see IBM 1130 Subroutine 
Library , Form C26-5929). 
Subroutine which generates the decimal 
digits of a real number field (adapted 
from FBTD subroutine, see IBM 1130 
Subroutine Library , Form C26-5929). 



EXTERNAL SUBROUTINES; 



FLD- 



ELD- 



NORM- 



Subroutlne which loads a standard pre - 
cision floating point number into the FAC 
(see IBM 1130 Subroutine Library , Form 
C26-5929). 

Subroutine which loads an extended pre- 
cision floating point number into the FAC 
(see IBM 1130 Subroutine Library , From 
C26-5929). 

Subroutine which normalizes the number 
in the FAC (see IBM 1130 Subroutine 
Library , Form C 26 -59 29). 



ERRORS DETECTED; The FIO error is detected in 
the R-conversion subroutine RCNVT. 
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SYNCHRONOUS COMMUNICATIONS ADAPTER 
SUBROUTINE (SCATl) 

Call Processing 

The call processing routine 

• Checks the call parameters for errors 

• Sets up the processing of subsequent interrupts 
depending on the operation requested by the call 

e Initiates the requested operation 

Operation 

When entered via a LIBF, SCATl 

1. saves XRl, XR2, accumulator and extension, ancf. 
status 

2. examines the control parameter to determine the 
operation requested 

3. obtains and saves the l/O area address and error 
routine address parameters if the operation is 
an Open, Transmit, or Acknowledge and Receive 
and Error Statistics 

4. determines, if the operation is a Transmit or 
Acknowledge and Receive , from digit 3 of the 
control parameter if ILRCs will be present in 
transmitted or received data records (digit 3 
non-zero indicates ILRCs will be present, zero 
indicates ILRCs will not be present) 

Test. If the operation is a Test, SCATl 

1. checks the routine busy indicator (RTBSY) 

2. returns to the calling routine at LIBF+3 if 
RTBSY is off (zero) 

3. returns to the calling routine at LIBF+2 if 
RTBSY is on (non-zero) 

Auto Answer. If the operation is the enabling/ 
disabling of the auto answer interrupt, SCATl 



1. 



2. 



(if digit 4 of the control parameter is zero) 
enables the auto answer interrupt, saves the 
I/O area address, and returns to the calling 
routine at LIBF+3 

(if digit 4 of the control parameter is non-zero) 
disables the auto answer interrupt and returns 
to the calling routine at LIBF+2 



Alarm. If the operation is the turning on/off of the 
audible alarm, SCATl 

1. turns the audible alarm on in the local system 
if digit 4 of the control parameter is zero 

2. turns the audible alarm off in the local system 
if digit 4 of the control parameter is non-zero 

3. returns to the calling routine at LIBF+2. 

Close. If the operation is a Close, SCATl 

1. resets the SCA 

2. clears the programmed indicators in SCATl 

3. decrements the $SCAT counter by 1 (word 17 
in COMMA) 

4. returns to the calling routine at LIBF+2 

Open . If the operation is an Open, SCATl 

1. determines the requested mode of operation 
from digit 4 of the control parameter (digit 4 
zero indicates Data In, non-zero indicates Data 
Out) 

2. puts the addresses of the read response, write 
response, and timeout routines for the Open 
operation into the interrupt branch addresses 

3. begins transmission of the IDLE character for 
1. 5 seconds 

4. increments the $SCAT counter by 1 

5. sets the retry counter to 7 

6. sets RTBSY on (non-zero) 

7. returns to the calling routine at LIBF+4 



Transmit . If the operation is a Transmit, SCATl 

1. puts the addresses for the read response, 
write response, and timeout routines for the 
Transmit operation into the interrupt branch 
addresses 

2. determines the type of transmission from digit 2 
of the control parameter (digit 2 equal to 
indicates transmission of a data record, 1 in- 
dicates transmission of the End of Transmission 
sequence, and 2 indicates transmission of the 
Telephone sequence) 

3. performs a Start Write (puts the SCA in the trans- 
mit mode and causes a write response intei'rupt) 

4. sets the retry counter to 7 

5. sets RTBSY on (non-zero) 

6. returns to the calling routine at LIBF+4 
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Acknowledge and Receive . If the operation is an 
Acknowledge and Receive, SCATl 

1. puts the addresses of the read response, write 
response, and timeout routines for the Receive 
operation into the interrupt branch addresses 

2. determines the type of acknowledgement to be 
transmitted from digit 2 of the control parameter 
(digit 2 zero indicates a positive acknowledge- 
ment, non-zero indicates a negative acknow- 
ledgment) 

3. performs a Start Write (puts the SCA in the 
transmit mode and causes a write response 
interrupt) 

4. sets the retry counter to 7 

5. sets RTBSY on (non-zero) 

G. returns to the calling routine at LIBF+4 

Krrors 

When SCATl detects an error in the calling proces- 
sing, a code indicating the error foimd is placed in 
the accumulator, the address of the LIBF is placed 
into location 40 in COMMA, and a branch is taken 
to location 41, a WAIT. When PROGRAM START 
is pressed, a branch is taken to the address in 
location 40 (i.e. , the LIBF is re-executed). 

Interrupt Processing 

The interrupt processing routine 

• Handles read response, write response, and 
timeout interrupts for the Open, Transmit, and 
Receive operations 

• Handles the auto answer request interrupt 

• Maintains an error statistics log of certain error 

• Is able to log timeouts and all characters trans- 
mitted and received 

Operation 

The paragraphs below describe the processing per- 
formed by SCATl to accomplish an entire operation 
(Open-Data In, Open-Data Out, Transmit, or 
Acknowledge and Receive). Actually, this processing 
is accomplished in a series of interrupts initiated by 
the user's call to SCATl. 

An interrupt occurs for each character received 
or transmitted. SCATl, by means of programmed 
indicators, keeps track of the characters to be 
received or transmitted next. After transmission 
or reception of each character, SCATl returns to 
the interrupted program. 

At the completion of an entire operation, a turn- 
around of the line occurs and IDLE characters are 



transmitted for 1. 5 seconds. During this 1. 5 
seconds the user must call SCATl, specifying the 
next operation to be performed. 

When entered from ILSOl due to an interrupt by 
the SCA, SCATl senses the device status word to 
determine the type of interrupt. 

Write Response Interrupt. If a write response 
interrupt has occurred, SCATl 



1. 



branches to the write response routine pointed 
to by the interrupt response addresses as set 
up in the call processing 



Read Response Interrupt. If a read response 
interrupt has occurred, SCATl 

1. checks to determine if a simultaneous timeout 
interrupt has occurred 

2. branches to the timeout routine pointed to by 
the interrupt response addresses as set up in 
the call processing if a simultaneous timeout 
interrupt has occurred 

3. reads the character received by the SCA into 
core storage if no simultaneous timeout 
interrupt has occurred 

4. branches to the read response routine pointed 
to by the interrupt response addresses as feet 
up in the call processing 

Timeout Interrupt . If a timeout interrupt has occur- 
red, SCATl 

1. branches to the timeout routine pointed to by the 
interrupt response addresses as set by the 
call processing 

Auto Answer Interrupt. If an auto answer interrupt 
has occurred, SCATl 

1. determines from bit 6 of the DSW if the auto 
answer interrupt is disabled/enabled (bit 6 
zero indicates disabled, 1 enabled) 

2. returns to ILSOl if the auto answer interrupt 
is disabled 

3. stores a non-zero value at the I/O area address 
if the auto answer interrupt is enabled 

4. disables the auto answer interrupt 

5. returns to ILSOl 

Write Response (Open) . If the mode of operation 
is Data In, the write response routine 

1. transmits the End of Idle sequence 

2. performs a Start Read (puts the SCA in the 
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receive mode and causes a read response 
interrupt) 

If the mode of operation is Data out, the write 
response routine 

1. transmits the End of Idle sequence 

2. performs a Start Read 

3. (when the read response routine has received 
the End of Idle sequence in response to the 
End of Idle sequence) transmits the Inquiry 
sequence 

4. performs a Start Read 

Read Response (Open). If the mode of operation is 
Data In, the read response routine 

1. (when the write response routine has transmit- 
ted the End of Idle sequence) expects to 
receive the Inquiry sequence 

2. (if the Inquiry sequence is received) sets 
RTBSY off (zero), turns the line around, and 
begins transmission of the IDLE character 
for 1. 5 seconds (the Open-Data In operation is 
complete) 

3. (if the End of Idle sequence is repeived) turns 
the line around and begins transmission of the 
IDLE character for 1. 5 seconds 

4. (if the Inquiry sequence is not received) 
branches to the timeout routine 

If the mode of operation is Data Out, the read 
response routine 

1 . (when the write response routine has transmitted 

the End of Idle sequence) expects to receive 

the End of Idle sequence 
•j>. (if the End of Idle sequence is received) turns 

the line around ajid begins transmission of the 

IDLE character for 1. 5 seconds 

3. (if the End of Idle sequence is not received) 
branches to the timeout routine 

4. (when the End of Idle sequence has been 
received and the write response routine has 
transmitted the Inquiry sequence) expects to 
receive the CL character followed by the 
ACK2 character 

5. (if the CL character followed by the ACK2 
character is received) sets RTBSY off (zero), 
turns the line around, and begins transmission 
of the IDLE character for 1. 5 seconds (the 
Open -Data Out operation is complete) 

c>. (if the CL character is not received, 
or if the CL character is not followed 
by the ACK2 character) branches to the 
timeout routine 



Timeout (Open). If the mode of operation is data 
in, the timeout routine 

1. branches to the user's error routine if a data 
set failure has occurred 

2. (on the first through seventh entries to this 
routine) decrements the retry counter by 1, 
begins transmission of the IDLE character for 
1. 5 seconds, and returns to the interrupted 
routine while another attempt is made to receive 
the expected sequence 

3. (on the eighth entry to this routine) branches to 
the user's error routine if synchronization has 
not been established (after 7 attempts the End of 
Idle sequence was not received in respomse to 
the End of Idle sequence) 

4. (on the eighth entry to this routine) branches to 
the user's error routine if nothing is received 
in response to the End of Idle sequence 

5. (on return from the user's error routine) resets 
the retry counter to 7 if the accumulator is non- 
zero and returns to ILSOl 

6. performs a Close operation (see "Close" under 
Call Processing , above) if the accumulatsr is 
zero and returns to ILSOl 

If the mode of operation is Data Out, the timeout 
routine 

1. branches to the user's error routine if a data 
set failure has occurred 

2. (on the first through seventh entries to ttiis 
routine) decrements the retry coimter by 1, 
begins transmission of the IDLE character for 
1. 5 seconds, and returns to the Interrupted 
routine while another attempt is made to receive 
the expected sequence 

3. (on the eighth entry to this routine) branches to 
the user's error routine if synchronization has 
not been established (after 7 attempts thei End 
of Idle sequence was not received in respionse 
to the End of Idle sequence) 

4. (on the eighth entry to this routine) branches to 
the user's error routine if nothing is received 
in response to the End of Idle sequence 

5. (on the eighth entry to this routine) brancihes to 
the user's error routine if the Inquiry sequence 
is received in response to the End of Idle: 
sequence or In response to the Inquiry stiquence 

6. (on return from the user's error routine) resets 
the retry counter to 7 if the accumulator is non- 
zero and returns to ILSOl 

7. performs a Close operation (see "Close" under 
Call Processing, above) if the accumulator is 
zero and returns to ILSOl 
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Write Response (Transmit). If the type of transmis- 
sion is Transmit Data, the write response routine 

1. (following the initial write response interrupt) 
transmits the Start of Record sequence, using 
the appropriate start of record character — 
SORl for odd numbered records, SOR2 for even 
numbered records 

2. next, transmits the data characters from the 
I/O area, building and transmitting ILRCs, if 
required 

3. and finally, transmits the End of Record se- 
quence at the depletion of the data word coiuit 

4. performs a Start Read (puts the SCA in the 
receive mode and causes a read response 
interrupt) 

If the type of transmission is Transmit EOT, 
the write response routine 

1. (following the initial write response interrupt) 
transmits the End of Transmission sequence 

2. performs a Start Read 

If the type of transmission is Transmit TEL, the 
write response routine 

1. (following the initial write response interrupt) 
transmits the Telephone sequence 

2. performs a Start Read 

Read Response (Transmit). If the type of trans- 
mission is Transmit Data, the read response routine 

1. (when the write response routine has transmitted 
the Start of Record sequence, using the ap- 
propriate start of record character, followed 

by the data characters, followed by the End of 
Record sequence) expects to receive an ac- 
knowledgement including the appropriate 
acknowledgement character — ACKl for odd 
numbered records, ACK2 for even numbered 
records — or the Error Received sequence 

2. (if the appropriate acknowledgement is received) 
turns the line around, and begins transmission 
of the IDLE character for 1. 5 seconds (the 
Transmit Data operation is complete) 

3. (if the Error Received sequence is received) 
decrements the retry counter by 1 and re-issues 
the initial Start Write to transmit the data record 

4. (if, after 7 attempts to transmit the data record, 
the appropriate acknowledgement is not received) 
branches to the user's error routine 

5. (on return from the user's error routine) resets 
the retry counter to 7 and re-issues the initial 



Start Write to transmit the data record if the 
accumulator is positive 

6. sets RTBSY off (zero), turns the line around, 
and begins transmission of the IDLE character 
for 1. 5 seconds if the accumulator is negative 
(the Transmit Data operation is complete) 

7. performs a Close operation (see "Close" under 
Call Processing , above) if the accumulator is 
zero 

8. (if nothing is received in response to the trans- 
mitted data record) a timeout occurs 

9. (if the something other than the appropriate 
acknowledgement or the Error Received sequence 
is received) decrements the retry counter by 1 
and issues the Start Write to transmit the Inquiry 
sequence; then turns the line around and expects 
to receive the appropriate acknowledgement 

If the type of transmission is Transmit EOT, the 
read response routine 

1. (when the write response routine has transmitted 
the End of Transmission sequence) expects to 
receive the End of Trajismission sequence 

2. (if the End of Transmission sequence is received) 
sets RTBSY off (zero), turns the line around, 
and begins the transmission of the IDLE char- 
acter for 1. 5 seconds (the Transmit EOT 
operation is complete) 

3. (if the End of Transmission sequence is not 
received) decrements the retry counter by 1 
and re-issues the initial Start Write to transmit 
the End of Transmission sequence 

4. (if, after 7 attempts to transmit the End of 
Transmission sequence, the End of Transmis- 
sion is not received in response) branches to 
the user's error routine 

5. (on return from the user's error routine) resets 
the retry counter to 7 and re-issues the initial 
Start Write to transmit the End of Transmission 
sequence if the accumulator is positive 

6. sets RTBSY off (zero) , turns the line around, 
and begins transmission of the IDLE character 
for 1. 5 seconds if the accumulator is negative 
(the Transmit EOT operation is complete) 

7. performs a Close operation (see "Close" tinder 
Call Processing , above) if the accumulator is 
zero 

If the type of transmission is Transmit TEL, the 
read response routine 

1. (when the write response routine has transmitted 
the Telephone sequence) expects to receive the 
Telephone sequence in response 
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3. 



4. 



(if the Telephone sequence is received) sets 

RTBSY off (zero), turns the line around, and 

begins transmission of the IDLE character for 

1. 5 seconds (the Transmit TEL operation is 

complete) 

(if the Telephone sequence is not received) 

decrements the retry counter by 1 and re-issues 

the initial Start Write to transmit the Telephone 

sequence 

(if, after 7 attempts to transmit the Telephone 

sequence, the Telephone sequence is not 

received in response) branches to the user's 

error routine 

(on return from the user's error routine) resets 

the retry counter to 7 and re-issues the initial 

Start Write to transmit the Telephone sequence 

if the accumulator is positive. 

sets RTBSY off (zero), turns the line around, 

and begins transmission of the IDLE character 

for 1. 5 seconds if the accumulator is negative 

(the Transmit TEL operation is complete) 

performs a Close operation (see "Close" under 

Call Processing , above) if the accumulator is 



zero 



Timeou t (Transmit) , 
the timeout routine 



If a timeout interrupt occurs, 



1. branches to the read response routine to handle 
the timeout as if an invalid response was 
received 



Writ e Response (Receive), 
routine 



The write response 



1. (if a data record was received in the last 
Acknowledge and Receive operation) transmits 
an acknowledgement, including the appropriate 
acknowledgement character — ACKl for odd 
numbered records, ACK2 for even numbered 
records (if the acknowledge is to be positive) ; 
then performs a Start Read (puts the SCA in the 
receive mode and causes a read response 
interrupt) 

2. (if a data record was received in the last 
Acknowledge and Receive operation) transmits 
the Error Received sequence (if the acknowledge- 
ment is to be negative); then performs a Start 
Read 

•!. (if the End of Transmission sequence has been 
received) transmits the End of Transmission 
sequence; then performs a Start Read 

4. (if the Telephone sequence has been received) 

transmits the Telephone sequence ; then perform s 
a Start Read 



Read Response (Receive). The read response routine 

1. (after the appropriate acknowledgement has been 
transmitted) expects to receive (1) the Start of 
Record sequence, followed by the data record 
(including ILRCs, if required), followed by the 
End of Record sequence,(2) the End of Trans- 
mission sequence, (3) the Telephone sequence, or 
(4) the Inquiry sequence 

2. (while receiving data characters) builds; an LRC 
to check against the ILRC/LRC received 

3. (if 1 above is received) compares the LRC built 
against the ILRC/LRC and indicates an error in 
the data record if they are not identical 

4. (if 1 without errors, or 2 above is received) sets 
RTBSY off (zero), turns the line around, and 
begins transmission of the IDLE character for 

1. 5 seconds (the Acknowledge and Receive 
operation is complete) 

5. (if 3 above is received) branches to the user's 
error routine 

6. (on return from the user's error routine) trans- 
mits the Telephone sequence; then performs 

a Start Read (puts the SCA in receive mode and 
causes a read response interrupt) 

7. (if 4 above is received) turns the line around, 
re-transmits the appropriate acknowledgement; 
then performs a Start Read 

8. (if characters other than one of the above — 1, 2, 
3, or 4-- or 1 above, with errors, are received) 
decrements the retry counter by 1, turns the 
line around, and transmits the Error Received 
sequence; then performs a Start Read 

9. (if, after 7 attempts, one of 1, 2, 3, or 4 above 
is not received) branches to the user's error 
routine 

10. (on return from the user's error routine) resets 
the retry counter to 7 and re -transmits the 
Error Received sequence attempting again to 
receive one of 1, 2, 3, or 4 above, if the 
accumulator is positive 

11. sets RTBSY off (zero), turns the line around, 
and begins transmission of the IDLE character 
for 1. 5 seconds if the accumulator is negative 
(the Acknowledge and Receive operation is 
complete) 

12. performs a Close operation (see "Close" under 
Call Processing, above) if the accumulator is 
zero 

13. (if nothing is received in response to the last 
acknowledgement transmitted) a timeout occurs 

Timeout (Receive). The timeout routine 

I. (if nothing is received in response to the last 
acknowledgement transmitted) branches to the 
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read response routine to handle the timeout as 
if an invalid response was received 



SYNCHRONOUS COMMUNICATIONS ADAPTER 
SUBROUTINE (SCAT2) 



Call Processing 

Chart: GA 

The call processing portion of SCAT2 

• Checks the call parameters for errors. SCAT2 
exits to the pre-operative error trap (word 40jq 
in COMMA) on any errors detected. 

• Performs an Auto Answer, Alarm, Test, or 
Close operation. 

• Sets up, according to the call parameters, the 
required switches and storage locations. These 
switches and storage locations are used by the 
Interrupt processing portion of SCAT2 to perform 
the requested operation during subsequent 
interrupts. 

• Initiates a Receive, Transmit Block, Transmit 
Text, or Transmit End operation. 

When entered via LIBF, SCAT2 saves the contents 
of index registers 1 and 2, the accumulator, the 
extension, and the status indicators. SCAT2 then 
performs the processing described below for the 
various operations. 

Test 

If RTBSY is non-zero, SCAT2 returns to the calling 
routine at LIBF+2. If RTBSY equals zero, SCAT2 
returns to the calling routine at LIBF+3, 

Auto Answer 

According to digit 3 of the control parameter, SCAT2 
either disables the auto answer interrupt and returns 
to the calling routine at LIBr+2 or enables the auto 
answer interrupt, saves the I/O area address param- 
eter at ANS, and returns to the calling routine at 
LIBF+3. 

Alarm 

According to digit 3 of the control parameter, SCAT2 
either turns the audible alarm on or turns it off. In 
either case, SCAT2 returns to the calling routine at 
LIBF+2. 



Close 

SCAT2 resets the SCA, clears the appropriate 
switches and storage locations, disconnects the SCA 
from the communications line, and returns to the 
calling routine at LIBF+2. 



Receive, Transmit Block, 
End 



Transmit Text, Transmit 



SCAT2, according to the call parameters, sets up 
the switches and storage locations required for the 
requested operation (see Switches and Storage 
Locations) . In all cases the idle register is loaded 
with the SYN character. The acknowledgements are 
initialized for a Receive Initial or Transmit Initial 
operation. The SCA is placed in the receive mode for 
a Receive Initial operation; otherwise, it is placed in 
the synchronize mode. SCAT2 then sets RTBSY non- 
zero and returns to the calling routine at LIBF+4. 

Error Statistics 

The address to an error statistics log is given to 
the user. 

Options 

According to digit 2 of the control parameter, the 
options specified in digit 4 of the control parameter 
are either enabled or disabled. 



Interrupt Processing 

Charts: GB, GC 

The interrupt processing portion of SCAT2 

• Handles read response, write response, and time- 
out interrupts for Receive, Transmit Block, 
Transmit Text, and Transmit End operations 
according to the pertinent switches and storage 
locations. 

• Handles the auto answer request interrupt. 

• Checks for errors in the data and commvuiication 
sequences received. SCAT2 exits to the user's 
error routine to process any errors detected. 

• Maintains an error statistics log of certain errors. 

• Logs timeouts and all characters transmitted and 
received. 
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During the series of interrupts initiated by the 
call processing portion of SCAT2, the interrupt 
processing portion performs the Receive, Transniit 
Block, Transmit Text, or Transmit End operation 
according to the switches and storage locations set up 
in the call processing. An interrupt occurs (1) when 
a character has been received in or transmitted by 
the SCA, (2) on a timeout of the receive (3 second) 
timer, (3) on a timeout of the transmit (1. 5 second) 
timer used during transmission of Normal EBCDIC 
text, (4) on a timeout of the program (approximately 
. 22 second) timer used during transmission of Full- 
Transparent text, or (5) on a timeout of the program 
timer during a Receive Initial operation if the pro- 
gram timer is specified to be used. The interrupt 
processing consists of updating the switches and 
storage locations (see Switches and ?jtoras:e Locations ^, 
error checking, and reception or transmission of the 
next message or control character, as appropriate. 
After processing an interrupt, SCAT2 returns to the 
interrupted program. 

When entered from ILSOl due to an interrupt by 
the SCA, SCAT2 senses and resets the device status 
word (DSW) to determine the type of interrupt. 
SCAT2 interrogates the DSW bits in the following 
order: auto answer request (bit 4), ready (bit 7), 
read response (bit 0), write response (bit 1), and 
timeout (bit 3). According to the DSW bits SCAT2 
performs the processing described below for the 
various types of interrupt. 

Auto Answer Request 

If the auto answer request interrupt is disabled, 
SCAT2 returns to ILSOl. If it is enabled, SCAT2 
stores a non-zero value at the address found in ANS, 
disables the auto answer request interrupt, and 
normally returns to ILSOl. If an exit to a user's 
routine is specified in an optional call to SCAT2 , this 
exit with the accumulator equal to zero is taken 
before the return to ILSOl. 



Ready 

The ready bit of the DSW must equal one in order for 
SCAT2 to process a read response, write response, 
or timeout interrupt. If the ready bit equals zero, 
an error is indicated and SCAT2 bramches to the user's 
error routine. 

Read Response 

In the receiving station, read response interrupts 
occur as message characters are received; in the 
transmitting station, read response interrupts occur 



as acknowledgements to the messages transmitted 
are received. 

SCAT2 reads the character received by the SCA 
into storage at BUF. Then, according to the switch- 
es and storage locations set up in the call processing 
or in previous Interrupt processing, SCAT2 trans- 
fers a message character to the user's I/O area or 
determines which control character was received. 
SCAT2 tests, sets, and/or resets the switches and 
storage locations depending on the character 
received and returns to ILSOl . 

During the reception of a message SCAT2 resets 
the 3 -second timer each time the synchronous idle 
sequence is received to prevent an erroneous receive 
timeout. 

Write Response 

In the receiving station, write response interrupts 
occur as acknowledgements to the messages received 
are transmitted; in the transmitting station, write 
response interrupts occur as message characters 
are transmitted. 

SCAT2 determines from the switches and storage 
locations set up in the call processing or in previous 
interrupt processing the message or control char- 
acter to be transmitted. SCAT2 tests, sets, and/or 
resets the switches and storage locations depending 
on the character to be transmitted. SCAT2 then 
loads the character to be transmitted into the S(Z;A 
for transmission and returns to ILSOl. 

During the transmission of Full-Transparent text, 
SCAT2 loads the idle register in the SCA with tlie 
DLE character so that the proper synchronous idle 
sequence (DLE SYN) is transmitted whenever a 
character gap occurs. 



Timeout 

SCAT2 tests, sets, and/or resets switches and 
storage locations depending on the operation in 
progress and the point at which the timeout occur- 
red. SCAT2 then, if appropriate, performs special 
processing according to the switches and storage 
locations and returns to ILSOl. 

The program timer causes a timeout interrupt 
every . 22 seconds (approximately) during the trans- 
mission of Full-Transparent text. This interrupt 
does not occur simultaneously with a write response 
interrupt. As the result of this interrupt SCAT2 
sets TOIND non-zero, causing the synchronous idle 
sequence (DLE SYN) to be transmitted on the next 
two write response interrupts. 

The transmit timer causes a timeout interrupt 
every 1. 5 seconds during the transmission of 
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Normal EBCDIC text. This Interrupt occurs 
simultaneously with a write response interrupt. 
As the result of this interrupt SCAT2 sets TOIND 
non-zero, causing the synchronous idle sequence 
(SYN SYN) to be transmitted. 

The receive timer determines the maximum time 
(3 seconds) that (1) a transmitting station will wait 
for a reply or (2) a receiving station will receive 
message characters between synchronous idle 
sequences. The receive timer is reset and re- 
started each time the synchronous idle sequence is 
received. As the result of a receive timer interrupt, 
SCAT2 sets XMENQ non-zero, causing the trans- 
mitting station to transmit ENQ next. 

The program timer causes a timeout interrupt 
during a Receive Initial operation if no ENQ is 
received and the program timer is specified to be 
used. 



Switches and Storage Locations 
ACK and ACK+1 



Notes. The CRC-16 is accumulated in BCCA by the 
CALC subroutine. 

BCCR 

Use/Contents. A storage location containing the 
CRC-16 received following the message just 
received. 

Notes. The CRC-16 received in BCCR is compared 
to the CRC-16 accumulated by the receiving station 
in BCCA to determine whether or not the message 
was received correctly. 



BCCl 

Use. A switch indicating in a Transmit operation 
which half of the CRC-16 is being transmitted; in a 
Receive operation that the next character to be 
received is the CRC-16. 

Settings. For a Transmit operation. 



Use/Contents. Storage locations containing the 
alternating positive acknowledgements. ACK con- 
tains the current acknowledgement; ACK+1 contains 
the alternative acknowledgement. 

Notes. During the call processing for a Receive/ 
Transmit Initial or Transmit End operation, ACK 
and ACK+1 are loaded with ACKO and ACKl, respec- 
tively. During interrupt processing the contents 
of ACK and ACK+1 are exchanged following the 
successful completion of each Receive Continue, 
Transmit Block, or Transmit Text operation. 



ANS 

Use/Contents. A storage location containing the 
address of the location where the auto answer indica- 
tion is to be stored. 

Notes. During the call processing for an Auto 
Answer Enable operation, the I/O area address 
parameter is saved at ANS. During interrupt process- 
ing the location whose address is contained in ANS 
is set non-zero whenever an auto answer request 
interrupt occurs. 

BCCA 



Zero = Transmit the second half of the CRC-16 
Non-zero = Transmit the first half of the CRC-16 

For a Receive operation, 

Zero = negative of non-zero 
Non-zero = CRC-16 is next character to be 
received 

Notes. BCCl is set non-zero in a Receive operation 
when the end character (ETB or ETX) has been 
received or in a Transmit operation when the number 
of characters to be transmitted (see COUNT) has 
been decremented to zero. BCCl is set to zero 
after the entire CRC-16 has been received (Receive 
operation) or after the first half of the CRC-16 has 
been transmitted (Transmit operation). 



BCC2 



Use. A switch indicating which half of the CRC-16 
is being received. 



Settings. 



Zero = Receive the first half of the CRC-16 
Non-zero = Receive the second half of the CRC- 



16 



Use/Contents. A storage location containing the 
CRC-16 accumulated for the message just trans- 
mitted/received. 



Notes. BCC2 is set non-zero after the first half of 
the CRC-16 has been received. BCC2 is set to zero 
after the second half of the CRC-16 has been received. 
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BUF 



DSW 



Use/Contents. A storage location through which 
message characters pass when being transferred 
from the I/O area to the SCA or from the SCA to the 
I/O area. 



Notes. The character in BUF is the character 
received by the SCA that caused the last read response 
interrupt or the character to be transmitted next by 
the SCA. 

CLOSE 

Use. A switch indicating that a Close operation is to 
be performed if no response is received to a trans- 
mitted EOT. 

Settings. 

Zero = Close if no response to EOT 

Non-zero = Do NOT Close if no response to EOT 

Notes. CLOSE is set during the call processing 
for a Transmit End operation according to digit 4 
of the control parameter. 



Use/Contents. A storage location containing the 
device status word (DSW) saved following the last 
interrupt. 



EOTRP 

Use/Contents. A switch indicating whether a reiad 
response should be performed after transmitting an 
EOT or not. 

Settings. 

Zero = Read response to EOT 

Non-zero = Do NOT Read response to EOT 

Notes. EOTRP is set during call processing for a 
Transmit End operation according to digit 3 of the 
control parameter. 

ERRU 

Use/Contents. A storage location containing the 
error code to be placed in the accumulator befoire 
branching to the user's error routine. 



COUNT 

Use/Contents . A storage location containing the 
number of characters transmitted from or the number 
of characters that were stored into the user's I/O area. 



interrupt processing as characters are transmitted/ 
received. At the end of a Transmit operation, COUNT 
equals the number of characters transmitted. At the 
end of a Receive operation, COUNT equals the number 
of characters stored in the I/O area. 

DLSTX 

Use. A switch indicating that the DLE STX sequence, 
which precedes a message or portion of a message 
in Full-Transparent text, has not yet been encount- 
ered in the message being transmitted. 



Notes. ERRU contains the error code for the post- 
operation error detected by SCAT2. 



FCODE 



Notes . The number in COUNT is Incremented during g^ 



Use. A switch indicating the function to be perform- 



Settings. 

Negative = Receive 

Zero = Transmit End 

Positive = Transmit Block/Text 

Notes. FCODE is set during call processing accord- 
ing to digit 1 of the control parameter. 



FIRST 



Settings. 

Zero = negative of non-zero 

Non-zero = DLE STX sequence not yet encountered 

Notes. DLSTX is set non-zero if the first character 
of a message in Full-Transparent text is not DLE. 
DLSTX is set to zero after the character following 
the first DLE (1. e. , STX) has been transmitted. 



Use. A switch indicating whether or not the first 
character has been transmitted from or received in 
the user's I/O area. 

Settings. 

Zero = First character transmitted/received 
Non-zero = First character not yet transmitted/ 
received 
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Notes. FIRST is set non-zero during call process- 
ing. FIRST is set to z;ero during interrupt process- 
ing when the first character is transferred to or 
from the user's I/O area. 

lOAR 

Use/Contents. A storage location containing the 
address of the user's I/O area. 

Notes. The I/O area address parameter is saved 
at lOAR during call processing. 



LSDLE 



Use. A switch indicating that the last character 
transmitted or received was DLE. 

Settings. 

Zero = negative of non-zero 
Non-zero = Last character was DLE 



Notes. LSDLE is set to zero during call processing; 
it is set to zero during interrupt processing when- 
ever it is non-zero and the character being trans- 
mitted is not DLE. LSDLE is set non-zero during 
interrupt processing when DLE is transmitted or 
received. 



OPTSW 



Use/Contents. A switch indicating which user options 
are active. 

Settings. The options are indicated by bit switches. 

Bit 13 = 1 A no-error exit to a user's routine is 
provided (ace = 0000 ) when the last 
interrupt of an operation has been ser- 
viced. 



Bit 14 = 1 An immediate exit to a user 's routine is 
provided (ace = 0020 ) when a timeout 
occurs prior to receiving an ENQ on a 
Receive Initial operation using the third 
timer. 



Bit 15 = 1 An immediate exit to a user's routine is 
provided (ace = 0020 ) when a timeout 
occurs prior to receiving an ENQ on a 
Receive Initial operation using the normal 
3 -second timer. 



Notes ; The bit switches are set and reset during 



I call processing. 



OVFLO 



Use^. A switch indicating that the message received 
exceeds the size of the user's I/O area. 



Settings. 



NXTPD 



Use/Contents. A switch indicating that a pad (FF ) 
character is to be transmitted next. 



Settings. 

Zero = Do not transmit the pad character 
Non-zero = Transmit the pad character 

Notes. NXTPD is set non-zero after each turnaround 
character or sequence has been transmitted. NTXPD 
is set to zero after the pad character has been trans- 
mitted. 

OPERR 

Use/Contents . A storage location containing the 
address of a user 's routine which is to be entered 
as specified in an optional call to SCAT2, 

Notes . The address parameter is saved at OPERR 
during call processing. 



Zero = negative of non-zero 
Non-zero = Overflow of the user's I/O area has 
occurred 

Notes. OVFLO is set non-zero during Interrupt 
processing when the character just received cannot 
be stored in the user's I/O area (i.e. , COUNT is 
now equal to WDCNT+1). 

PACK 

Use/Contents . A switch indicating whether the 
message to be transmitted/received is 
specified as unpacked (i. e. one character per 
word) or packed (two characters per word). 

Settings. 

Zero = Message specified as unpacked 
Non-zero = Message specified as packed 

Notes. PACK is set during call processing according 
to digit 2 of the control parameter. 
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POINT 



STXIN 



Use/Contents. A stor^e location containing the 
address, of the location within the user's I/O area 
where the next character to be transmitted is located 
or where the next character received is to be stored. 



Use. A switch indicating that STX is the next char- 
acter to be transmitted or received. 



Settings. 



Notes. The address in POINT is Incremented during 
interrupt processing as characters are transmitted 
or received. 



Zero = negative of non-zero 
Non-zero = Next character to be transmitted/ 
received is STX 



RETRY 

Use/Contents. A storage location used as the retry 
counter. RETRY contains the nimaber of times an 
operation is to be attempted. 



Notes. STXIN is set non-zero when the first DLE 
character of a message in Full-Transparent tesxt 
has been transmitted/received. STXIN is set to 
zero after the character following the first DLE 
(i. e. , STX) has been transmitted/received. 



Notes. RETRY is set to eight during call processing. 
RETRY is decremented by one each time an operation 
is reattempted. When RETRY equals zero, it is 
reset to 7 and an exit is made to the user's error 
routine. 



RTBSY 

Use. A switch indicating whether or not SCAT2 is 
busy, i. e. , is performing a previously initiated 
operation that has not been completed. 

Settings. 



Zero = SCAT2 not busy 
Non-zero = SCAT2 busy 

Notes. RTBSY is set non-zero during the call 
processing for Receive, Transmit Block, Transmit 
Text, and Transmit End operations; RTBSY is set 
to zero during interrupt processing when the opera- 
tion is completed. 



SLVMS 



Use. A switch indicating whether this station, in the 
event of contention, is to be the master station or 
the slave station. 



Settings . 

Zero = Master 
Non-zero = Slave 

Note s. SLVMS is set during the call processing for 
a Transmit Initial Block/Text operation according 
to digit 3 of the control parameter. 



SUBF 

Use . A switch indicating the sub -function of the 
function to be performed. 

Settings. 

Negative = Receive/Transmit Initial or Transmit 

EOT 
Zero = Receive/Transmit Continue or Transmit 

DLE EOT 
Positive = Receive Repeat 

Notes. SUBF is set during call processing accord- 
ing to digit 2 of the control parameter. 

SYN2 

Use. A switch indicating that the synchronous idle 
sequence is to be transmitted next. 

Settings. 

Zero = negative of non-zero 
Non-zero = Insert the synchronous idle sequence 
following a transmit timeout 

Notes. SYN2 is set to zero during the call process- 



ing for a Transmit Initial or Transmit Continue 
operation; it is set to zero during interrupt process- 
ing after the synchronous idle sequence has been 
transmitted. SYN2 is set non-zero during interrupt 
processing when a timeout occurs during trans- 
mission. 

SYN5 

Use/Contents. A storage location containing the 
number of SYN (padding) characters that are to 
precede every transmission. 
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Notes. During call processing SYN5 is set to five. 
During interrupt processing the number in SYN5 is 
decremented by one for each SYN character trans- 
mitted. When SYN5 equals zero, transmission of 
the message characters or control sequence follows. 



TBTX 

Use. A switch indicating whether Block or Text 
transmission is to be performed. 

Settings. 

Zero = Block 
Non-zero = Text 

Notes. TBTX is set during call processing accord- 
ing to digit 1 of the control parameter. 

TEND 

Use. A switch indicating that the next character to 
be transmitted is ETB (in a Transmit Block opera- 
tion) or ETX (in a Transmit Text operation). 

Settings. 

Zero = negative of non-zero 
Non-zero ='ETB or ETX is next character to be 
transmitted 

Notes. TEND is set non-zero when all characters 
of a message in Full -Transparent text has been 
transmitted. TEND is set to zero after the end 
character (ETB or ETX) has been transmitted, 

TEXTM 

Use. A switch indicating the type of text to be 
transmitted. 

Settings. 

Zero = Normal EBCDIC text 
Non-zero = Full-Transparent text 

Notes. TEXTM is set during the call processing for 
a Transmit Block/Text operation according to digit 
4 of the control parameter. 



TOIND 



Use. A switch indicating that a receive timeout has 
occurred. 



Settings. 

Zero = negative of non-zero 

Non-zero = Receive timeout has occurred 

Notes. TOIND is set non-zero when a receive 
timeout occurs in the transmitting station while 
waiting to receive an acknowledgement. TOIND is 
set to zero when an acknowledgement is received. 

TRANS 

Use. A switch indicating that Full-Transparent text 
is being transmitted/received or that the CRC-16 is 
the next character to be received. 



Settings. 

Zero = negative of non-zero 

Non-zero = Full-Transparent text being trans- 
mitted/received, or CRC-16 is next 
character to be received (if BCCl is 
also non-zero) 

Notes. TRANS is set to zero during call processing; 
it is set to zero during interrupt processing after 
the end character (ETB or ETX) has been trans- 
mlttedoor after an acknowledgement has been trans- 
mitted. TRANS is set non-zero when the sequence 
DLE STX is encountered in transmitting or receiving, 
or when the end character (ETB or ETX) is received 
(see BCCl). 

USERR 

Use/Contents. A storage location containing the 
address of the user's error routine. 

Notes. The error routine address parameter is 
saved at USERR during call processing. 

WDCNT 



Use/ Contents. A storage location containing the word 
count of the message for a Transmit operation or the 
length of the I/O area for a Receive operation, if the 
message is specified as unpacked; i. e. one character 
per word. If the message is specified as packed, i. e, 
two characters per word, the storage location con- 
tains the number of characters to be transmitted or 
the maximum number of characters to be received. 

Notes. The contents of the first word of the user's 
I/O area are obtained and saved at WDCNT during 
call processing. 
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WD17I 



Use. A switch indicating whether or not the SCAT 



counter, 
by one. 

Settings. 

Zero = 



word 17 in COMMA, has been incremented 



Word 17 has been decremented by 1 or 
has not yet been incremented by 1. 



Non-zero 



Word 17 has been incremented by 1. 



Notes. WD17I is set non-zero during call processing 
when the first operation other than a Close operation 
is initiated, at the same time that word 17 is in- 
cremented by one. WD17I is set to zero when a Close 
operation is performed, at the same time that word 
17 is decremented by one. 



WRACK 

Use . A switch Indicating that an incorrect acknowl- 
edgement was received prior to a receive timeout. 



Settings. 

Zero = negative of non-zero 
Non-zero = Incorrect acknowledgement received 
prior to a receive timeout 



Settings. 

Zero = negative of non-zero 
Non-zero = Entire message has not yet been 
transmitted 

Notes. XMESS is set non-zero during the call 
processing for a Transmit Initial or Transmit 
Continue operation. XMESS is set to zero during 
interrupt processing when the entire message has 
been transmitted. 

XNAK 

Use. A switch indicating that NAK is the next 
character to be transmitted. 

Settings. 

Zero = negative of non-zero 
Non-zero = Next character to be transmitted is 
NAK 

Notes. XNAK is set non-zero during the call process- 
ing for a Receive Repeat operation; it is set non- 
zero during Interrupt processing when an error is 
detected while receiving a message. XNAK is set to 
zero during interrupt processing when NAK has been 
transmitted. 



XMENQ 

Use. A switch indicating that the next character to tae 
transmitted or the first character to be received must 
be ENQ. 

Settings. 

Zero = negative of non-zero 
Non-zero = Next character transmitted or first 
character received must be ENQ 

Notes. XMENQ Is set non-zero during the call process- 
ing for a Receive/Transmit Initial operation; it is 
set non-zero during interrupt processing whenever a 
receive timeout occurs while attempting to receive sm 
acknowledgement. XMENQ is set to zero during 
interrupt processing when ENQ has been transmitted 
or received. 



SYNCHRONOUS COMMUNICATIONS ADAPTER 
SUBROUTINE (SCATS) 



Call Processing 

Chart: GD 

The call processing performed by the SCATS sub- 
routine is identical to that performed by the SCAT 2 
subroutine, except that (1) SCATS does not perform 
the Auto Answer operation as does SCAT2, (2) no 
options can be specified as in SCAT2, (3) SC^lTS 
initiates the Monitor operation in addition to those 
initiated by SCAT2, and (4) SCATS, in inltiatiag a 
Transmit Initial operation,, places the SCA in the 
receive mode initially instead of in the synchronize 
mode, as in SCAT2. 



XMESS 



Use. A switch indicating that a message is to be 
transmitted. 



Monitor 

SCATS saves the selection address and the polling 
address specified in the Monitor operation in locations 
SELA and POLLA, respectively. SCATS sets up the 
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switches and storage locations required for the 
Monitor operation (see Switches and Storage Loca- 
tions). The idle register is loaded with the SYN 
character and the SCA is placed in the receive mode. 
SCAT3 then returns to the calling routine at LIBF+4. 



Interrupt Processing 

Charts: GE, GF, GG 

The interrupt processing performed by the SCATS 
subroutine is identical to that performed by the SCAT2 
subroutine, except that (1) the auto answer request 
interrupt, processed by SCAT2, is not processed by 
SCATS, (2) interrupt processing for the Monitor 
operation, not found in SCAT2, is performed, and (3) 
in the case of an error detected during a Monitor 
operation, the operation is retried indefinitely, and 
no exit is made to the user's error routine, as in 
SCAT2. 



Switches and Storage Locations 

The switches and storage locations used by SCATS 
are identical to those used by SCAT2, except as 
noted below. 

ADDR 

Use. A switch indicating that the polling or selection 
address was received while monitoring. 

Settings. 

Positive = Polling address received 
Negative = Selection address received 
Zero = No address received 

Notes. If ADDR is set non-zero and the next charac- 
ter received is not ENQ, NOTME is then set non-zero. 

ANS 

There is no storage location ANS in SCATS. 

CLOSE 

There is no switch CLOSE in SCATS. 

CMODE 

Use. A switch indicating that SCATS is in control 
mode, 1. e. , is able to recognize the polling or 
selection address as such. 



Settings. 

Zero = negative of non-zero 
Non-zero = SCATS is in control mode 

Notes. CMODE is set to zero during the call process- 
ing for a Receive/Transmit Initial or Monitor 
operation; it Is set to zero during interrupt process- 
ing whenever an SOH or STX character is received. 
CMODE is set non-zero during interrupt process- 
ing when EOT has been received. 

EOTRP 

There is no switch EOTRP in SCATS. 



FCODE 

Use. A switch indicating the function to be performed. 

Settings. 

Negative = Receive 

Zero = Monitor 

Positive = Transmit Block/Text/End 



Notes. FCODE is set during call processing accord- 
ing to digit 1 of the control parameter. During 
interrupt processing FCODE is set to zero if SCATS 
returns to the Monitor operation. 

ITBSK 

Use. A switch indicating that the next two characters 
to be received while monitoring are to be ignored. 

Settings. 



Zero = negative of non-zero 

Non-zero = Ignore the next two characters 

Notes. ITBSK is set non-zero when an intermediate 
block check (ITB) character or the sequence DLE ITB 
is received while monitoring, in order that the two 
following block check characters not be mistaken for 
control characters. 

LSSYN 

Use. A switch indicating that the last character 
recognized while monitoring Normal EBCDIC text was 
a SYN character. When the sequence SYN SYN has 
been recognized while monitoring Normal EBCDIC 
text, the receive timer is reset. 
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Settings. 



POLLA 



Zero = negative of non-zero 
Non-zero = Last character recognized was a SYN 
character 

Notes. LSSYN is set non-zero during interrupt 
processing whenever a SYN character has been 
recognized while monitoring Normal EBCDIC text. 
LSSYN is set to zero during interrupt processing 
whenever any character other than the SYN character 
has been recognized while monitoring Normal 
EBCDIC text or whenever a timeout has occurred. 

MO NIT 

Use. A switch indicating that a Receive Initial or 
Transmit Initial operation is monitoring for the selec- 
tion or polling address, respectively. 

Settings. 

Zero = negative of non-zero 

Non-zero = Monitor for selection or polling address 



Notes . MONIT is set non-zero during the call pro- 
cessing for a Receive Initial or Transmit Initial 
operation. MONIT is set to zero when the selection 
address is received during a Receive Initial opera.tion, 
or when the polling address is received during a 
Transmit Initial operation. 

NOTME 

Use, A switch indicating that, while monitoring, an 
address was received that did not match the specified 
polling or selection address. 

Settings. 



Zero = negative of non-zero 

Non-zero = Station's address was not received (but 
another station's was received) 

Notes. NOTME is used to determine whether a 
response should be transmitted when an ENQ has been 
received. 



OPERR 

There is no storage location OPERR in SCATS. 

OPTSW 

There is no switch OPTSW in SCATS. 



Use/Contents. A storage location containing the 
polling address specified in the last Monitor opeira- 
tion initiated. 

Notes. The polling address is saved at POLLA during 
call processing. 

POLLI 

Use/Contents.. A storage location containing the 
address of the location following the location in the 
user's program that contains the polling address. 
The address found at POLLI Is used by SCATS in 
storing a non-zero value in the location following the 
polling address whenever that polling address iss 
received, except during a Transmit Initial operation. 

Notes. The appropriate address is saved at PC'LLI 
during call processing. 

SELA 

Use/Contents. A storage location containing the 
selection address specified in the last Monitor 
operation initiated. 

Notes. The selection address is saved at SELi^^ 



during call processing. 



SELI 



Use/Contents. A storage location containing tlie 
address of the location following the location in the 
user's program that contains the selection address. 
The address found at SELI is used by SCATS in 
storing a non-zero value in the location following the 
selection address whenever that selection addrtjss is 
received, except during a Receive Initial operation. 

Notes. The appropriate address is saved at SELI 



during call processing. 

SLVMS 

There is no switch SLVMS in SCATS. 

TBTX 

Use. A switch indicating whether Block, Text, or 
EOT transmission is to be performed. 
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Settings . 

Negative = EOT 
Zero = Block 
Positive = Text 



Notes. TBTX is set during call processing accord- 
ing to digit 1 of the control parameter. 

TRNSP 

Use. A switch indicating the type of text being 
monitored by SCATS. 



Settings. 

Zero = Monitoring Normal EBCDIC text 
Non-zero = Monitoring Full-Transparent text 

Notes. TRNSP is set non-zero during interrupt 
processing when DLE STX is received while monitor- 
ing. TRNSP is set to zero during interrupt process- 



ing when SCATS resynchronizes with the transmitting 
station. 

XNAK 

Use. A switch indicating that NAK is the next 
character to be transmitted. 

Settings. 

Zero = negative of non-zero 

Non-zero = Next character to be transmitted is 

NAK 

Notes. XNAK is set non-zero during the call process- 
ing for a Receive Repeat operation. XNAK is set 
non-zero during Interrupt processing when an error 
is detected while receiving a message or when the 
selection address is received and SCATS is not 
prepared to receive data. XNAK is set to zero 
during interrupt processing when NAK has been 
transmitted. 
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SECTION 13. SYSTEM DEVICE SUBROUTINES 



The system device subroutines are a group of 
special subroutines used exclusively by the moni- 
tor system programs. These are the only device 
subroutines used by the monitor system programs , 
aside from DISKZ. They are listed below: 

DISKZ 

1403 Subroutine 

1132 Subroutine 



Console Printer Subroutine 
2501/1442 Subroutine 
1442/1442 Subroutine 
1134/1055 Subroutine 
Keyboard/Console Printer Subroutine 
2501/1442 Conversion Subroutine 
1134/1055 Conversion Subroutine (dummy) 
Keyboard/Console Printer Conversion Sub- 
routine (dummy) 



Section 13. System Device Subroutines 109 



SECTION 14. STAND-ALONE UTILITIES 



DISK CARTRIDGE INITIALIZATION PROGRAM 
(DCIP) 



When DCIP is entered, a message is printed in- 
structing the user to select the particular DCIP 
function desired. Depending on his choice, one of 
the functions described below is performed. 

All messages, entries through the Console Entry 
switches, and operator instructions are printed on 
the Console Printer. All user options are entered 
through the Console Entry switches. 



DISK INITIALIZATION 

A message is printed instructing the user to specify 
the number of the physical drive on which is mounted 
the cartridge to be initialized. At the same time, 
the user is given the option of doing an "address 
only" initialization, that is, an initialization that 
writes correct addresses on a cartridge without 
disturbing any of the data on that cartridge. The 
user is then asked to specify the cartridge ID. 

An entire cylinder of the cartridge is written with 
one of three test patterns. The patterns used are 
/AAAA, /5555, and /OOOO. The cylinder is then 
read back into core storage, one sector at a time, 
using double-buffering. 

While one sector is being read, every word of 
another is being examined to see that it compares 
with the data that was written. If no errors occur 
in any sector of the cylinder, the same procedure is 
repeated for the next pattern, and so on until all 
three patterns have been tested. 

However, if any disk operation causes the error 
bit of the disk device status word (DSW) to be set, or 
if the data read does not compare with that written, 
then the entire write/read/compare procedure is 
repeated fifty times on the same cylinder with the 
same test pattern. A second error, while in the 
retry mode, causes DCIP to indicate the cylinder as 
being defective. 

If (1) cylinder zero is defective, (2) more than 
three cylinders are defective, or (3) it is impossible 
to write a sector address, DCIP types out an error 
message indicating that the cartridge may not be 
used. 



After every cylinder on the cartridge has been 
tested in the above manner, the program writes three 
defective cylinder addresses and the cartridge ID into 
the first four words of sector @IDAD. Whore defec- 
tive cylinder addresses do not exist, /0658 is written. 
Words 7-30 of sector @IDAD are set to zeros. DCIP 
also writes an error message program, beginning at 
word 31. If a cold start is attempted using this non- 
system cartridge, the error message program prints 
an appropriate message and no cold start is effected. 

DOOM (sector @DCOM) is initialized as follows: 



Location 


Value Inserted 


#ANDU 


/0200 


#BNDU 


/0200 


#FPAD 


/0020 


#CIDN 


Cartridge ID 


#CIBA 


/0008 


#ULET 


/0002 



LET (sector 2) is initialized as follows: 
Word Contents 



1 


/OOOO 


2 


/0020 


3 


/OOOO 


4 


/0138 


5 


/OOOO 


6 

7.' 


/7112 The name IDUMY (in name 


/4528 code) 


8 


/0620 



A message indicating that the initialization is com- 
plete and the addresses of any defective cylinders are 
printed on the Console Printer. 

At this time, the user is given the option of doing 
additional testing of the disk; i. e. , the write/read/ 
compare sequence may be repeated up to 31 times. 



DISK DUMP 

The principal print device is determined by first 
initiating a carriage space operation on the 1403 
Printer. The device status word (DSW) for the 1403 
is then sensed to see if the 1403 is busy. If it is not, 
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the same procedure is followed with the 1132 Printer. 
On the basis of the results of the above test, a word 
that points to the appropriate conversion table and a 
branch instruction that branches to the proper printer 
call are set up. 

The user enters through the Console Entry 
switches the sector address (with the drive code) of 
the first sector to be dumped and the number of con- 
secutive sectors to be dumped. 

The logical sector address is determined in the 
following manner. The physical sector address Is 
decremented by eight for each defective cylinder 
that has a lower sector address less than the cylinder 
to be dumped from. If the sector being dumped is on 
a defective cylinder, the sector is assigned the log- 
ical sector address of DEAD. Defective cylinder 
data for the cartridge is obtained from sector @IDAD . 

Each of the 320 data words of the sector is con- 
verted from binary to four hexadecimal characters of 
the appropriate printer code. The data is then 
printed, sixteen words per line. 



DISK COPY 

DCIP requests the user to enter the numbers of the 
source and destination drives in the Console Entry 
switches,, The defective cylinder table from the 
source cartridge is fetched and checked to verify that 
the values in it are under 1624 and in ascending 
order. 

The source cartridge is copied sector by sector 
onto the destination cartridge. The cartridge ID 
and defective cylinder table in sector 0, cylinder 
are not copied onto the destination cartridge. If a 
system cartridge is being copied, the cartridge ID 
found in DCOM is also not copied. 



If a cylinder on the source cartridge is deiective, 
the following cylinder is copied to the destination 
cartridge. If a cylinder on the destination cartridge 
is defective, the cylinder to be copied from the source 
cartridge is copied onto the following cylindeir. 



UCART 



The user receives the 1130 Disk Monitor System on a 
disk cartridge. The contents of this cartridge are 
as follows: cylinder contains a copy of the !Resident 
Image, including DISKZ, a copy of the CARDO sub- 
routine, a special cold start program, and a disk-to- 
card dump program; cylinders 1 through 202 contain 
the system decks stored in card images, four' cards 
per sector. 

The execution of a cold start with this cartridge 
causes sector 0, cylinder to be fetched. Sector 0, 
cylinder contains DISKZ and the special cold start 
program. DISKZ is loaded into the locations it 
normally occupies in the Resident Monitor; the spec- 
ial cold start program immediately follows it. Con- 
trol is transferred to the special cold start pirogram. 

The special cold start program fetches the Resi- 
dent Image (sector 2, cylinder 0) into the locations it 
normally occupies in low core storage, fetches the 
CARDO subroutine (sector 3, cylinder 0) into core 
storage at /0250, and fetches the disk-to-card dump 
program Into core storage at /0390. Control is 
transferred to the disk-to-card dump program, which 
punches the svstem decks and terminates. 

The disk-to-card dump program uses a one- 
cylinder buffer origined at its high-addressed end. 



112 



PROGRAM ANALYSIS PROCEDURES 



INTRODUCTION 



The purpose of the Program Analysis Procedures 
is to provide the user with a step-by-step method 
for analyzing the execution of any monitor system 
or user program. The procedure is problem- 
oriented; it begins with some program malfunc- 
tion, assists the user in defining the failing com- 
ponent or function, and provides the facility for 
detailed analysis of that component or function. 



PROGRAM ANALYSIS PROCEDURES SUMMARY 

Flowdiagram 1 shows the procedure used for program 
analysis. At each step in the procedure, the parts of 
this document that apply to that step are indicated. 

IDENTIFICATION OF THE FAILING COMPONENT 
OR FUNCTION 

Flowdiagram 2 shows the procedure used to identify 
the component or function failing. Where applicable 
the parts of this document that are pertinent to that 
identification are indicated. 



Step 



Analysis Procedure 



Supporting Documentation 



( ''"' ) 



o 







© 



o 



© 



© 



Determine which program is failing . If it is 
a subroutine, determine its name and its 
location in core. 




Get a ful I core dump . 



Core Dump 
Procedures 



Block out and identify the significant items 
in the core dump listing . 



Analyze the foiling subroutine: 
Correct input -Data 
parameters -To and from Linkage 
Function code -I/O area 



If necessary, determine which program 
called the falling subroutine and where It 
is located In core . 



Analyze the calling program for correct 
parameters and linkage. If necessary, con- 
tinue tracing back several levels of calls. 




Subroutine 
Data Charts 



Flowdiagram 1 . General Procedure for Program Analysis 
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Refen 



Analysis Procedure 



C ^^°^^ J 



Supporting Documentation 



Contents of 

$PHSE 



Contents of 
$PRET 




Non-Zero 



Monitor System Program execution 
-A DSLET Listing will provide 
reference to phase ID 



Contents of: 
$PST1 Level ] 
$P5T2 Level 2 
$PST3 Level 3 
$PST4 Level 4 



^Holt \ 


.Yes 




Pre-operative I/O E 
-Invalid Control F 


rror 
jnction 




^t $PRET/ 


Yes 




-Device Not Ready 






No 




' 










1 








Error number In ACC 
should identify subroutine. 
Go to Subroutine 
Maintenance Analysis Procedure 


r 
1 
1 
1 
1 
i 




Subroutine 
Error Number 
List 


1 








$PSTx N 




Post-operative I/O Error 




Error y" 






-Error Bits in DSW 









No 



Program ^ y Yes 
Loop 



Using lAR contents, go to step 1 1 
in Trace Back Procedures 



T' 



Trace Back 
Procedures 









J 


v^ln valid >^ 


Yes 


Using lAR, XRl, XR2, XR3, ACC, 
EXT, attempt to correlate bock to 
program . Go to step 1 1 in Trace 
Back Procedures 




V Op / 


, 


1 




■ 


No 








Other Err6rs; 
Incorrect 
Answer, etc. 






1 


' 




Dump as soon 
as possible 








after th 
ure. 


e fail- 










Flowdiagram 2. Procedure for Identification of the Failing Component or Function 
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SUBROUTINE ERROR NUMBER/ERROR STOP 
LISTS 



Table 8 lists the errors detected by the System 
Library ISSs and system device subroutines by 
error code, describes the conditions under which 
the error is detected, and provides a list of cor- 
rective actions for those errors. 

Table 9 lists the error stop addresses and their 
meanings. 



CORE DUMP PROCEDURE 



To obtain a dump of the contents of core storage, 
perform the following (see Flowdiagram 3): 

1. If the error symptoms indicate that an error 
has occurred in Qie disk or disk I/O subroutine 
(i.e. DISKZ), the System Core Dump program 
should not be used, because this same disk I/O 
subroutine is used to load the System Core 
Dump program, thus destroying the information 
needed. 

2. Was there a NOCAL Dump included in the core 
load ? If there was , it may be used to obtain 
the core dump. To obtain the core dump, set 
the lAR to the entry point of the NOCAL Dump 
and start. 

3. If the error symptoms indicate an error in the 
principal print device, then the System Core 
Dump program should not be used, as it would 
destroy any information needed. 

4. To retain the maximum information, the stand- 
alone dump procedure should be used. 

a. By displaying core storage, copy down 
locations /OOOO to /0050. 

b. Use the stand-alone printer dump to dump 
the rest of core storage. 

5. To obtain the core dump using the System Core 
Dump program, set the lAR to /OOOO and start. 



( Start J 



Retain Console 
Information- 
-ACC, EXT, 
XR1,XR2,XR3 
-Lights 
-Device Status 




YES 




YES 



Perform 

NOCAL 

Dump 



YES 



NO 



DUMPCORE 
(stand-alone 
dump) 



Perform 
System 
Dump 



Obtain 
Full Core 
Dump 



Flowdiagram 3 . Core Dump Procedure 

files, arrays, and COMMON variables were defined 
and SOCALs were employed. 

Figure 17 , panel 2 shows the layout of the contents 
of core storage during the execution of a user's 
yORTRAN core load in which files, arrays, and 
COMMON variables were defined. No LOCALs were 
defined; no SOCALs were employed. 

Figure 17 , panel 3 shows the layout of the contents 
of core storage during the execution of a user's 
FORTRAN core load in which no LOCALs, files, 
arrays, SOCALs were employed. COMMON vari- 
ables were defined. 

Figure 17 , panel 4 shows the layout of the contents 
of core storage during the execution of a user's 
Assembler Language core load. 

Figure 17, panel 5 shows the layout of the contents 
of core storage during the execution of an RPG core 
load. For a detailed description of the RPG core 
load see IBM 1130 RPG Program Logic Manual, 
Form Y21-0010. 



CORE BLOCK DIAGRAMS 



Figure 17 , panel 1 shows the layout of the contents 
of core storage during the execution of a user's 
FORTRAN core load in which LOCAL subprograms. 



CORE LOCATION PROCEDURES 

The following core load elements are located by 
means of the procedures given with the elements. 

FAC (Floating Accumulator) 

— 3 words used as FORTRAN Floating Accumulator 

— Located at XR3 + /007D. 
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• Table 8. Error Number List 



HEXADECIMAL 
ERROR NUMBER 

IN 
ACCUMULATOR 


SYMBOLIC 

ERROR STOP 

ADDRESS 


DETECTING 

SUBROUTINE 

DURING SYSTEM 

PROGRAM 

EXECUTION 


DETECTING 
SUBROUTINE 
DURING 
FORTRAN 
CORE LOAD 
EXECUTION 


DETECTING 

SUBROUTINE 

DURING ASSEMBLER 

WNGUAGE CORE 

LOAD EXECUTION 


DETECTING 
SUBROUTINE 
DURING RPG CORE 
LOAD EXECUTION 


ERROR EXPLANATION 


CORRECTIVE ACTION 


1000 


SPRET 


System 1442/1442 
Subroutine 


CARDZ 
PNCHZ 




CARDO 


1442 - Device Not Ready 


1442 - Ready the Device 






CARDO 
CARDl 


1442-6,-7 - Device Not Ready 
- Read Initloted with 
last Card Indicator 
on 


PNCHO 
PNCHl 


PNCHO 


1442-5 - Device Not Ready 


$PST4 


System 1442/1442 
Subroutine 


CARDZ 
PNCHZ 


CARDO 
CARDl 
PNCHO 
PNCHl 


CARDO 

PNCHO 


1442 - Device Not Ready 


1442-5 - Run out the puncti 
- Ready the Device 


1442-6,-7 -Ready the Device 


1001 


$PRET 






CARDO 
CARDl 
PNCHO 
PNCHl 


CARDO 
PNCHO 


1442 - Invalid Device 
Specified 

- Device not on system 

- Invalid Function 
Specified 

- Word Count over +80 

- Word Count zero or 
negotive 


1442 - Use Trace Back Proc:edures 
to analyze calling program 


2000 


$PRET 


System Keyboard 
Subroutine, 
System Keyboard/ 
Console Printer 
Subroutine 


TYPEZ 
WRTYZ 


TYPEO 
WRTYO 


WRTYO 


Console Printer/Keyboard 
- Device Not Ready 


Console Printer/Keyboard 
- Ready the Device 


$PST4 


System Keyboard 
Subroutine, 
System Keyboard/ 
Console Printer 
Subroutine 


TYPEZ 
WRTYZ 


TYPEO 
WRTYO 


WRTYO 


Console Printer/Keyboard 
- Device Not Ready 


Console Printer/Keyboard 
- Ready the Device 


2001 


$PRET 






TYPEO 
WRTYO 


WRTYO 


Console Printer/Keyboard 

- Device not on System 

- Invalid Function 
Specified 

- Word Count zero or 
negative 


Console Printer/Keyboard 

- Use Trace Back Procedures 
to analyze calling program 


3000 


$,PRET 


System 1134/1055 
Subroutine 


PAPTZ 


PAPTl 
PAPTX 
PAPTN 


- 


1134/1055 - Device Not Ready 


1134/1055 - Ready the Device 


$PST4 


System 1134/1055 
Subroutine 


PAPTZ 


PAPTI 
PAPTX 
PAPTN 


- 


1134/1055 - Device Not Ready 


1134/1055 -Reody the Device 


3001 


$PRET 






PAPTt 
PAPTX 
PAPTN 


- 


1134/1055 - Invalid Function 
Specified 

- Invalid Check Digit 

- Word Count zero or 
negative 


1134/1055 -Use Trace Back 
Procedures to 
analyze catling 
program 


40O0 


$PRET 


System 2501/1442 
Subroutine 


READZ 


REA&D 
READl 


READO 


2501 - Device Not Ready 


2501 - Ready the Device 


$PST4 




READZ 


READO 
READl 


READO 


2501 - Device Not Ready 

- Read Error 

- Feed Check 


2501 - Reody the Device 

- Run out the reader a nd 
retry with lost cord leod 
and cards run out 
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•Table 8. Error Number List (Continued) 



4001 


$PRET 






READO 

READ1 


READO 


2501 - Invalid Function 
Specified 

- Word Count over +80 

- Word Count zero or 
negative 


2501 - Use Trace Bock Procedures 
to analyze colling program 


5000 


$PRET 


DISKZ 


DISKZ 


DISKZ 
DISKl 
DISKN 


DISKZ 


Disk - Device Not Ready 


Disk - Ready the Device 


5001 


$PRET 






DISKl 
DISKN 




Disk - Invalid Device Specified 

- Device not in System 

- Invalid Function 
Specified 

- Areo to be written 
File-protected 

- Word Count zero or 
negative 

- Starting Sector Address 
over +1599 


Disk - Use Trace Back Procedures 
to analyze calling progrom 


$PST2 


DISKZ 


DISKZ 


DISKZ 
DISKl 
DISKN 


DISKZ 


Disk - Power Unsafe 
- Write Select 


Disk - Turn power down, vrtiit for 
CARTRIDGE UNLOCKED 
light to come on, turn 
power up, then retry 
- Call CE on persistent error 


5002 


$PST2 


DISKZ 


DISKZ 


DISKZ 
DISKl 
DISKN 


DISKZ 


Disk - 16 retrys made without 
success 


Disk - Initiate 16 more retrys 

- Use onother drive 

- Use another cartridge 

- Reinitialize cartridge 


5003 


JPRET 


DISKl 
DISKN 








Disk - Invalid Device Specified 

- Device not in System 

- Invalid Function 
Specified 

- Area to be written 
File-protected 

- Word Count zero or 
negative 

- Starting Sector Address 
over +1599 


Disk - Use Trace Back Procedures 
to analyze calling program 


5004 


$PST2 


DISKZ 


DISKZ 


DISKZ 


DISKZ 


Disk - Disk Error 


Disk - Turn power dovm, wait For 
CARTRIDGE UNLOCKED 
light to come on, turn 
power up, then retry 
- Call CE on persistent error 


6000 


$PRET 


System 1 1 32 
Subroutine 


PRNTZ 


PRNTI 
PRNT2 
PRNT3 


PRNTI 


1132 - Device Not Ready 
- End of Forms 


1132 - Ready the Device 


6001 


$PRET 






PRNTI 
PRNT2 
PRNT3 


PRNTI 


1132 - Invalid Function 
Specified 

- Word Count over +60 

- Word Count zero or 
negative 


1132 - Use Trace Back Procedures 
to analyze calling progrom 


7000 


tPRET 


■■ 


- 


PLOTl 


_ 


1627- Device Not Ready 


1627 - Ready the Device 


$PST3 


. 


- 


PLOTl 


- 


1627- Device Not Ready 


1627 - Ready the Device 


70O1 


$PRET 






PLOTl 




1627 - Invalid Device Specified 

- Device not on System 

- Invalid Function 
Specified 

- Word Count zero or 
negative 


1627 - Use Trace Back Procedures 
to analyze colling program 


8001 


$PRET 






SCAT1 
SCAT2 
SCAT3 


■ 


SCA - Invalid Function 
Specified 

- Invalid Word Count 

- Invalid Subfunction 
Specified 


SCA - Use Trace Bock Procedures 
to analyze calling program 
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•Table 8. Error Number List (Continued) 



8002 


$PRET 


- 


" 


SCAT1 


" 


SCA - Receive operation 
not' completed 
- Transmit operation 
not completed 


SCA - Use Trace Back Procedures 
to analyze colling pnjgram 


8003 


JPRET 






SCATl 




SCA - Synchronization not 
established before 
attempting to perform 
some Transmit or 
Receive Operarit^ 
- Attempting to Receive 
before receiving INQ 
sequence 


SCA - Use Trace Bock Procedures 
to analyze calling program 


9000 


SPRET 


System 1403 
Subroutine 


PRNZ 


PRNT3 


PRNT3 


1403 - Device Not Ready 
- End of Forms 


1403 - Ready the Device 


JPST4 


System 1403 
Subroutine 


PRNZ 


PRNT3 


PRNT3 


1403 - Device Not Ready 
- Print Error 


1403 - Ready the Device 


9001 


SPRET 






PRNT3 


PRNT3 


1403 - Invalid Function 
Specified 

- Word Count over +60 

- Word Count zero or 
negative 


1403 - Use Trace Ekick Procedures 
to onalyze calling program 


AOOO 


$PRET 


- 


- 


OMPR1 


_ 


)231 - Device Not Ready 


1231 - Ready the Device 


$PSU 


" 


" 


OMPRl 


" 


1231 - Device Not Reody 

- Timing Marie Error 

- Read Error 


1231 - Ready the Device 

- Retry with the sheet that 
has been selected into 
the stacker 


AOOt 


SPRET 


- 


- 


OMPR1 


- 


1231 -Invalid Function 
Specified 


1231 - Use Trace Back Procedures 
to analyze calling program 



O Table 9. Error Stop List 



Absolute Address 


Symbolic Address 


Program 


Explanation 


/0012 


_ 


Cold 


-Invalid disk drive number 






Start 


in Console Entry Sv/itches 






Loader 


-Indicated disk drive not 
ready 


/0044 


_ 


Cold 


-Disk^read error 






Start 


-Waiting for Interrupt from 






Loader 


seek operation 


/0046 


- 


Cold 
Start 
Loader 


-Waiting for interrupt from 
reading sector @IDAD 


/0029 


$PRET + 1 


All ISSs 


-Preoperative Error 


/0082 


$PSTI+I 


Level 1 
ISSs 


-Post-^operative Error on 
level 1 


/ooas 


$P5T2 + 1 


Level 2 
ISSs 


-Post-operative Error on 
level 2 


/008A 


$PST3 + 1 


Level 3 
ISSs 


-Post-operative Error on 
level 3 


/008E 


$PST4 + 1 


Level 4 
ISSs 


-Post-operative Error on 
level 4 



ARITHMETIC AND FUNCTION SUBPROGRAM 
ERROR INDICATORS 

— 3 words preceding FAC. 

— First word (XR3 + /007A) is used for real arith- 
metic overflow and underflow indicators. 

— Second word (XR3 + /007B) is used for divide 
check indicator, 

— Third word (XR3 + /007C) is used for function 
subroutine indicators. 

— The loader initializes all three words to zero. 



LIBF TV (Library Function Transfer Vector) 

— One 3-word entry for each LIBF listed in the 
core map. 

— Located just preceding ARITH/FUNC ERROR 
INDICATORS . 

~ Higher core end is located at XR3 + /0079. 

— First LIBF Entry (the beginning of LIBF TV) is 
located at (XR3 + /0077) - (3 times the number 
of LIBFs listed in core map). 
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© 


® 


® 


® 


© 


COMMA, 
Skeleton 
Supervisor 


COMMA, 
Skeleton 
Supervisor 


COMMA, 
Skeleton 
Supervisor 


COMMA, 
Skeleton 
Supervisor 


COMMA 
Skeleton 
Supervisor 


DISKZ 


DISKZ 


DISKZ 


DISK! 

or 
DISKN 


DISKZ 


DEFINE FILE 
Table 


DEFINE FILE 
Toble 


Constants, 
Integers 


Fixed Routine 

(Mainline 

Program) 


Mainline 
Program 


Arrays 


Arrays 


Formot 
PorometCTS 


Moinline 
Program 


Constants, 
Integers 


Constants, 
Integers 


Variable 

Section 

{Mainline 

Program) 


Format 
Parameters 


Format 
Parameters 


Mainline 
Proflram 


Mainline 
Program 


In-Core 

Subroutines 


In -Core 
Subroutines 


In-Core 

Subroutine 


In-Core 
Subroutines 


In-Core 
Subroutines 


Flipper 
Toble 


Interrupt 

Level 

Subroutines 


FLIPR 


Interrupt 

Level 

Subroutines 


Interrupt 

Level 

Subroutines 


LOCAL 
Area 


w 


Internjpt 

Levef 

Subroutine 


SOCAL 

Area 


H 


P 


Interrupt 

Levef 

Subroutines 


H 


V/M 


LIBF TV 


LIBF TV 


LIBF TV 


CALL TV 


CALL TV 


CALL TV 


COMMON 


COMMON 


COMMON 


LIBF TV 


LIBF TV 


CALL TV 


CALL TV 



• Figure 1 7. Core Layout During User Core Load Execution 



LIBF TV SOCAL LINKAGE 
~ The 6 or 9 words used to link to the SOCAL / 

LOCAL Flipper. 
— Located just preceding the First LIBF Entry in 

the LIBF TV. 



~ 6 words long if SOCAL option 1; 9 words long if 
SOCAL option 2, 

CALL TV (Call Transfer Vector) 

— One single-word entry for each call listed in the 
core map. 

— Located immediately following FAC. 

— First CALL TV Entry is at XR3 + /0080 (add 1 if 
address comes out odd). 

~ The Last CALL TV Entry is at ( First CALL TV 
Entry-1) - (Number of CALLs listed in the core 
map). 

DISK I/O SUBROUTINE 

— All Disk I/O subroutines are loaded beginning 
at CORE LOCATION /00F2. 

~ The Disk I/O subroutines vary in length (see table) 

— The type of disk subroutine in core Is contained in 
$DZ1N (see table) 



Contents 
of $DZ1N 


Disk I/O 

Subroutine 

Currently 

in Core 


Location in 
Core 


First 

Word 

of User's 

Program 


First 
Word 


Last 
Word 


FFFF 

0000 

0001 


DISKZ 
DISKl 
DISKN 


/00F2 

/oor2 
/oor2 


/OlDF 

/0293 

/03A1 


/OlFE 
/02B2 
/03C0 



DFT (DEFINE FILE Table) 

— 7 words for each file defined by the user. 

— Located at 1 plus the end of the disk I/O subroutine. 

ARRAYS (In User's Program Area) 
~ Located immediately following DEFINE FILE 
Table, if any. 

CONSTANTS AND INTEGERS (In User's Program 
Area) 

— Located immediately following ARRAYS, if any. 

COMMON (The area at "End of Core" defined by 
COMMON statement) 

~ Length of COMMON is contained in $COMN. 

~ Start of COMMON is highest core address, (XFFF), 
minus the Length of COMMON. 

IN-CORE SUBROUTINES (subroutines that are in 
core all the time) 

— Located immediately following user's mainline 
program. 
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— Those subroutines listed in core map that are 
not SOCALS or LOCALS are In-Core subroutines. 

— The load address of these subroutines is listed 
with subroutine name. 

LOCAL /SOCAL FLIPPER (FLIPR) 

— Load address given in core map under the head- 
ing SYSTEM SUBROUTINES. 

LOCAL AREA (The "Load-on-Call" overlay area) 

— Size depends upon largest LOCAL subroutine 
used. 

— Beginning core address is FLIPR + /0066. 

— Ending core address is address of SOCAL Area. 
minus 1. 

SOCAL AREA (System overlay area) 

— Located immediately following LOCAL Area. 
-- Beginning core address is found at FLIPR 

+ /004D. 

— The first word in SOCAL Area contains the 
word count of SOCAL Area. 

— Ending core address is the beginning address 
+ the word count of the SOCAL Area. 



GENERALIZED SUBROUTINE MAINTENANCE/ 
ANALYSIS PROCEDURE 



LIST 



LDD 
BSI 



DC 
DC 



LIST 

ENTRY POINT 



paramete;r 

paramete;r 



To place the subroutine into a loop: 



2. 



3. 



Obtain link word from the system device 
subroutine. 

The contents of this link viord point to the loca- 
tion following the long BSI instruction. 
Insert into the location following the long BSI 
instruction an MDX instruction back to the LDD 
instruction. 



LIBRARY SUBROUTINES (except 'Z' subroutines 
and PLOTX) 

The linkage to the System Library device subroutines 
(ISSs) are of the following form: 



Flowdiagram 4 provides the procedure to be used for 
detailed analysis of an I/O subroutine. The proce- 
dure is applicable to FORTRAN device, general ISS, 
and system device subroutines. 



TRACE BACK PROCEDURES 



LIBF 



CALL 



BSI 


3 TVDISP 


BSI 


DC 


CONTROL 


DC 


DC 


ARG 1 


DC 



CALLTV 
CONTROL 
ARG 1 



Flowdiagram 5 provides the procedure to be used to 
trace back from a failing subroutine to the preceding 
portion of the core load, which called the subroutine. 
This procedure can be used to trace all the way back 
to the mainline program. 

SUBROUTINE LOOPING CAPABILITIES 

SYSTEM DEVICE SUBROUTINES 

The linkages to system device subroutines are of 
the form: 



DC 



ARGN 



DC 



ARG]>J 



To place the subroutine into a loop: 



1. 



2. 



3. 



Insert in the location following the last argument 
an MDX instruction back to the BSI instruction. 
Some of the arguments may have to be changed 
to point to the BSI instruction because they are 
error exits or busy addresses. 
Refer to subroutine data charts for uniqvie 
operating characteristics. 
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G> 



f START ) 



Det-ermlne 

Last 

Function 



Assumes Core 
Location Pro- 
cedures have 
been done 



Test, Seek 
Skip/ Feed/ 
Space, etc 




Obtain Last 
lOCC and 
Parameters at 
I/O Address 




Examine Ar- 
guments in 
Calling Se- 
quence of 
Caller 



Trace Back 
Procedures 




■^rgu men ts\_XfV 
Valid 



Possible Device 
Failure, Run 
Diagnostics or 
Loop Call 



Check Logic 
of Subroutine 
for Incorrect 
Flow 



Go to 
That Sub- 
routine 







Loop Sub- 
routine 



Looping 
CapabiliHes 









Invalid 
Function 



6 



Device 
Failure, 
Run 
Diognostlcs 



Looping 
Capobilities 




Determine 
Preceding 
Function 



^ 



Flowdiagram 4 . Generalized Subroutine Maintenance/ Analysis Procedure 
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Step 

o 

© 

© 

© 
© 

© 
© 



Procedure 

Start with l 
some failing 
Subroutine j 



Get the core mop printed during program 
loading 




This procedure assumes the user has already 
analyzed the subroutine'per Subroutine 
Analysis Procedures and has blocked out 
a core dump per Core Location Procedures. 



A core map is obtained by punching an 
"L" in column 14 of the XEQ cord if the 
program being loaded is in disk system 
format , 



Yes 



Determine which function was being used 



I 



f Step 19 J 



Get the symbolic entry point from the 
Subroutine Data Charts 



Find the symbolic entry name in the core 
map 




No 



This is the Core Load Address of that 
entry point. 



The subroutine type is obtained from the 
Subroutine Data Charts 



Yes 



The contents of the address 
derived in step 5 is the Link 
Word back to the calling 
statement in the calling 

program 



The Core Load 
Addnsss contains 
the Link Word 
back to the 
caller. 



( Step 1 1 J 



Add 2 to the Core Load Address obtained 
in step 5 



"This gives the address of the word that 
points to the transfer vector. 



© 




Get the contents of the word located at 
the address computed in step 8 



'This gives the address of the transfer 
vector. 



Get the first word of the transfer vector 
entry 



]■ 



"This is tile Link Word back to the colling 
statement in the calling subroutine. 



f Step 1 1 J 



Flowdiagram 5. Trace Back Procedures 
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Step 



Procedure 



© 







© 



© 



© 



© 



© 
© 



'Continue now \ 
having the ad- ' 
dress of calling 

, statement / 




Now determine the name of the failing 
subroutine. 



No 



Yes 



Match the address of the calling pro- 
gram to the addresses In the core map 



r Step 17 J 



Locate the SOCAL linkage words in the 
core dump 



The word group containing "FOFD" is 
the overlay in core 



Marl< the core map to identify all sub- 
routines in the incore overlay 



Determine which overlay is in core. 



Use the Core Dump Analysis Procedures 
to locate SOCAL linkage words, 3 for 
each overlay 

-SOCAL LINKAGE- 

Overlay 3 
Overlay 2 
Overlay 1 

-The overlay in core contains 70FD in 

third word 
-Overlays not in core contain 

70F4 (SOCAL level 2) or 

70F7 (SOCAL level 1) In third word 
'Make a table of subroutines by overlay 
assignment 



xxxx 


xxxx 


70FX 


xxxx 


xxxx 


70FX 


xxxx 


xxxx 


70FX 



Match the address of the calling program 
obtained in step 7 (CALL) or step 10 
(LIBF) to the addresses marked instep 15 



The oddress closest to and less than the 
calling program's address identifies 
the name in core map 



You now hove name of calling subroutine. 



Analyze this subroutine using Subroutine 
Analysis Procedures 



( Step 1 ) 



Flowdiagram 5. Trace Back Procedures (Continued) 
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Step 





Procedure 



Get the symbolic bcation of function 
code from the Subroutine Data Charts 



■ The different entry points are related to 
the various "functions" performed by the 
subroutine. 



© 



Find the symbolic location in the 
subroutine listing 



Get the relative address of the location 
of function code 



Get the load point address for this 
subroutine from coije map 



"Microfiche reference to subroutine list- 
mg is given in Appendix D. 



"The address at the symbolic location 
determined in step 20 is the relative 
address . 



© 



Calculate core location of function 
code 



Get the function code from core dump 
and decode with Subroutine Data Chart 



"The relative address determined in step 
21 plus the load point address determined 
in step 22 gives the location of the 
function code. 



Get the symbolic name for each function 
entry point from the Subroutine Data 
Chart 



f Step 5 ) 



Flowdiagram 5. Trace Back Procedures (Concluded) 
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SUBROUTINE DATA CHARTS 



SYSTEM DEVICE SUBROUTINE FOR KEYBOARD/CONSOLE PRINTER 

Phase ID: @ KBCP 

Used by: Monitor system programs 

Subroutines required: ILS04 

Linkage: LDD LIST 

BSI L KBOOO+1 



LIST DC 
DC 



FUNCTION CODE 
I/O AREA ADDRESS 



Preoperative input parameters: 



Function 


ACC 


EXT 


I/O Area 
Address 


Read, Convert, 
Print 


/7002 


Address of I/O 
Area 


Word Count 



Postoperative conditions and entry points: 



Function at KB080 


Symbolic 
entry point 


Return 
address at 


Interrupt 
entry point 


Return 
address at 


Interrupt 
level 


Read, Convert, 
Print 


/7002 


KBOOO+1 


KBOOO+1 


KB020+1 


KB020+1 





Register status: 





ACC 


EXT 


XRl 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 














Used 


X 


X 


X 


X 







Significant variables: 



Symbolic location 



KB080 

KB160 

KB170 
KB270 

KB280 

KB290 

KB370 and KB370+1 



Contents /Use 



The function is placed here. It becomes an MDX *+2 when executed. 
Original word count. 

Original I/O area address. 

Character buffer area, containing a 12-bit character read from the Keyboard, the 
rotate/tilt code character printed, or a control character. 

Data area pointer, pointing to the next word in the data area into which the EBCDIC 
character will be placed. 

Remaining word count. 

Read/Print Control lOCC. 
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SYSTEM DEVICE SUBROUTINE FOR 1442/1442 

Phase ID: @ 1442 

Used by: Monitor system programs 
Subroutines required: ILS04 
Linkage: LDD IJST 

BSI L CDOOO+1 



LIST DC 
DC 



FUNCTION CODE 
I/O AREA ADDRESS 



Preoperative input parameters: 



Function 


ACC 


EXT 


I/O Area Address 


Read 


/7000 


Address of the I/O 


No word count is used but an 






Area 


80 position area must be 
specified. 


Punch 


/7001 


Address of the I/O 


No word eoimt is used but an 






Area 


80 position area must be 
specified. 


Read 


/7002 


Address of the I/O 


No word count is used but an 






Area 


80 position area must be 
specified. 


Feed 


/7003 


Not used 


Not used 



Postoperative conditions and entry points: 



Function at CD090 


Syinbolic 
entry point 


Return 
address at 


Interrupt 
entry point 


Return 
address at 


Interrupt 
level 


Read 


/7000 


CDOOO+1 


CDOOO+1 


CD016+1 
CDOlO+1 


CD016+1 
CDOlO+1 




4 


Punch 


/7001 


CDOOO+1 


CDOOO+1 


CD016+1 
CDOlO+1 


CD016+1 
CDOlO+1 




4 


Read 


/7002 


CDOOO+1 


CDOOO+1 


CD016+1 
CDOlO+1 


CD016+1 
CDOlO+1 




4 


Feed 


/7003 


CDOOO+1 


CDOOO+1 


CDOlO+1 


CDOlO+1 


4 
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Register status 


; 
















ACC 


EXT 


XRl 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 












CD120 


Used 


X 


X 










Interrupt 
level 


Saved at/restored from 
symbolic location 


CD190 


CD190+1 








CD018 


Used 


X 












Interrupt 
level 4 


Saved at/restored from 
symbolic location 














Used 


X 


X 


X 


X 




X 



Significant variables: 




Symbolic location 


Contents /Use 


CD210 


First column indicator. 


CD250 


Current colunm address. 


CD260 


Second half of the last lOCC performed, read or punch. 


CD230 


Second half of the last lOCC performed, start read or pimch. 


CD188 


Skip indicator; non-zero = take one feed cycle. 


$LAST 


Last card indicator; non-zero = last card. 


$CTSW 


Control card switch; non-zero = control card read. 


$IBSY 


Busy indicator for 1442; non-zero = busy. 



Program Analysis Procedures 127 



SYSTEM DEVICE SUBROUTINE FOR 2501/1442 

Phase ID: @ 2501 

Used by: Monitor system programs 
Subroutines required: ILS04 
Linkage: LDD LIST 

BSI L RPOOO+1 



LIST DC 
DC 



FUNCTION CODE 
I/O AREA ADDRESS 



Preoperative input parameters: 



Function 


ACC 


EXT 


I/O Area Address 


Read 


/7000 


Address of I/O Area 


Word count 


Punch 


/7001 


Address of I/O Area 


Not used 


Read 


/7002 


Address of I/O Area 


Word count 


Feed 


/7003 


Not Used 


Not used 



Postoperative conditions and entry points: 



Function at RP360 


Symbolic 
entry point 


Return 
address at 


Interrupt 
entry point 


Return 
address at 


Interrupt 
level 


Read 


/7000 


RPOOO+1 


RPOOO+1 


RP020+1 


RP020+1 


4 


Punch 


/7001 


RPOOO+1 


RPOOO+1 


RP040+1 
RP020+1 


RP040+1 
RP020+1 




4 


Read 


/7002 


RPOOO+1 


RPOOO+1 


RP020+1 


RP020+1 


4 


Feed 


/7003 


RPOOO+1 


RPOOO+1 


RP020+1 


RP020+1 


4 



Register status: 


















ACC 


EXT 


XRl 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 












RP440 


Used 


X 


X 










Interrupt 
level 


Saved at/restored from 
symbolic location 


RP480 


RP480+1 








RP060 


Used 


X 












Interrupt 
level 4 


Saved at/restored from 
ssrmbolic location 














Used 


X 


X 




X 
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Significant variables: 



Symbolic location 


Contents /Use 


RP500 


Current column address. 


RP520 


I/O address for restart information. 


RP600 


Word count for 2501 Reader. 


RP200 


Device last used: 
/1702 = 1442 
/4F01 = 2501 


$LAST 


Last card Indicator; non-zero = last card. 


$CTSW 


Control card switch; non-zero = control card read. 


$IBSY 


Busy Indicator; non-zero = busy. 
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SYSTEM DEVICE SUBROUTINE FOR CONSOLE PRIl^TER 

Phase ID: @ CPTR 
Used by: Monitor system programs 
Subroutines required: ILS04 
Linkage: LDD LIST 

BSI L CPOOO+1 



LIST DC 
DC 



FUNCTION CODE 
I/O AREA ADDRESS 



Preoperative input parameters: 



Function 


ACC 


EXT 


I/O Area 
Address 






Address of page 




Restore 


/7000 


heading buffer 
(@HONG) 




Write 


/7001 


Address of I/O 
Area 


Word Count 


Skip 


/7002 







Postoperative 


conditions and entry points: 










Function at CP120 


Symbolic 
entry point 


Return 
address at 


Interrupt 
entry point 


Return 
address at 


Interrupt 
level 


All 




CPOOO+1 


CPOOO+1 


CP020+1 


CP020+1 





Register status: 







ACC 


EXT 


XRl 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 








CP170+2 






Used 


X 


X 




X 


X 





130 



Significant variables: 



Sjrmbolic location 


Contents/Use 


CP120 


The function is placed here. This word is executed to decode the function. 




/7000 is a MDX * 




/7001 is a MDX * + 1 




/7002 is a MDX * + 2 


CP200 


Carriage return counter, used for counting carriage returns for restore. 


CP350 


lOCC for printing on console. 


CP350+1 


CP350 contains address of CP450. 


CP370 


Actual word count of message not including trailing blanks. 


CP380 


Data area pointer, pointing to the word containing the 2 EBCDIC characters. 




one of which is being printed. 


CP450 


Print character buffer word. The lOCC points to this word, which contains 




the character or control character just printed. 
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SYSTEM DEVICE SUBROUTINE FOR 1132 

Phase ID: @1132 

Used by: Monitor system programs 

Subroutines required: ILSOl 

Linkage: LDD LIST 

BSI L PNOOO fl 



LIST DC 
DC 



FUNCTION CODE 
I/O AREA ADDRESS 



Preoperative input parameters: 



Function 


ACC 


EXT 


I/O Area 
Address 


Print 

Skip to Channel 1 

Space Immediate 


/7001 
/7000 
/7002 


I/O Area address 
I/O Area address 
Not used 


< word count 
< 80 

I/O Area is 
referenced 

Not used 



Postoperative conditions and entry points: 



Function at PN380 


Symbolic 
entry point 


Return 
address at 


Interrupt 
entry point 


Return 
address at 


Interrupt 
level 


Print 


/7001 


PNOOO+1 


PNOOO+1 


PNOlO+1 


PNOlO+1 


1 


Skip 


/7000 


PNOOO+1 


PNOOO+1 


PNOlO+1 


PNOlO+1 


1 


Space 


/7002 


PNOOO+1 


PNOOO+1 


PNOlO+1 


PNOlO+1 


1 



Register Status 


: 
















ACC 


EXT 


XRl 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 






PN400+1 


PN400+3 


PN400+5 




Used 


X 


X 


X 


X 


X 


X 


Interrupt 
level 1 


Saved at/restored from 
symbolic location 


PN200 


PN200+1 


PN440+1 


PN440+3 


PN440+5 


PN450 


Used 


X 


X 


X 


X 


X 


X 
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Significant variables: 



Symbolic location 


Contents /Use 


PN040 


Last emitter character read as a result of a read emitter response interrupt. 


PN050 


Second word of Sense-DSW-with-reset lOCC. 


PN060 


Last DSW sensed In Interrupt. 


PN070 


Second word of Sense-DSW-wlth-no-reset lOCC. 


PN080 


First word of Read emitter lOCC, contains the address of location PN040. 


PN090 


Second word of Read emitter lOCC. 


PNIOO 


First word of Start Printer lOCC , also the idle scan counter. 


PNllO 


Second word of Start Printer lOCC. 


PN120 


Print scan counter. 


PN130 


Second half of Stop Printer lOCC. 


PN150 


Second half of Start Carriage lOCC. 


PN170 


Second half of Stop Carriage lOCC. 


PN180 


First half of Stop Carriage lOCC and mask to check bits 3, 5, and 6 of Printer DSW. 


PN370+1 


Address of the I/O area. 


PN460+1 


Word coxmt. 


PN470+1 


Address of message. 


$PBSY 


/OOOl indicates I/O buffer is busy and 49 print scan cycles have not been 




completed. 




/OOOO indicates routine may still be busy completing the 16 idle scans; however, 




I/O buffer is ready to accept new input. 


$CH12 


Zero = Channel 12 has not been sensed. 




Non-Zero = Channel 12 has been sensed and skip to channel 1 has not been 




performed. 



Program Analysis Procedures 133 



SYSTEM DEVICE SUBROUTINE FOR 1403 

Phase ID: @1403 

Used by: Monitor system programs 

Subroutines required: ILS04 

Linkage: LDD LIST 

BSI L PROOO+1 



LIST DC 
DC 



FUNCTION CODE 
I/O AREA ADDRESS 



Preoperative input parameters: 



Function 


ACC 


EXT 


I/O Area 
Address 


Print 1 Line 


/7001 


Address of 
I/O Area 


< word count i 60 


Skip 


/7000 


Address of 
I/O Area 


I/O Area is 
referenced 


Space Immediate 


/7002 


Not used 


Not used 



Postoperative conditions and entry points: 



Function at PR150 


I/O Area 
word count 


Symbolic 

entry point 


Return 
address at 


Interrupt 
entry point 


Print 


/7001 


Non-Zero 


PROOO+1 


PROOO 


PROIO 


Skip 


/7000 


Not used 


PROOO+1 


PROOO+1 


PROIO 


Space 


/7002 


Not Used 


PROOO+1 


PROOO+1 


PROIO 



Register status: 





ACC 


EXT 


XRl 


XR2 


XR3 


StELtUS 


Mainline 


Saved at/restored from 
symbolic location 






PR230+1 


PR240+1 


PR250+1 




Used 


X 


X 


X 


X 


X 


X 
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Significant variables: 



Symbolic location 


Contents /Use 


PR140 


A NOP after the following areas have been adjusted to the correct address as a 




result of relocation: 




PR300 




PR500+1 




PR180+2 




PR280+2 




PR170+1 




PR220+2 




PRO 80 




PR400+1 




PR430+1 


PRO 80 


First word of Print lOCC, contains address of print buffer. 


PRO 80+1 


Second half of Print lOCC . 


PRllO 


Second half of Sense-without-reset lOCC. 


PR300 


First word of Skip-to-channel- 12 lOCC. 


PR300+1 


Second word of Skip-to-channel- 12 lOCC. 


PR090 


First word of Space immediate lOCC. 


PR090+1 


Second word of Space immediate lOCC. 


PR290+1 


Address of the user's I/O area. 


PR060 


Storage location for the last DSW sensed during interrupt; also, first word of 




Sense-DSW-with-reset lOCC. 


PR070 


Second word of Sense-DSW-with-reset lOCC. 


PRllO 


Second word of Sense-DSW-without-reset lOCC. 


PR390 


60-word buffer from which the line is printed. 


$PGCT 


Binary page count, where < page count < 32767 


$CH12 


Channel 12 switch indicating channel 12 detected in DSW during interrupt; 




not reset until a skip to channel 1 is requested by the user. 


$PBSY 


Printer busy switch, modified during execution of routine. 




($PBSY) = Zero: routine and printer not busy. 




= Positive: transmission to printer is in progress; transmission 




complete has not been received; subroutine I/O buffer is busy. 




= Negative: transmission complete has been received; subroutine 




I/O buffer can now be set up with new message. 
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SYSTEM DEVICE SUBROUTINE FOR 1134/1055 

Phase ID: @ 1134 

Used by: Monitor system programs 

Subroutine required: none 

Linkage: LDD LIST 

BSI L PTOOO+1 



LIST DC 
DC 



FUNCTION CODE 
I/O AREA ADDRESS 



Preoperative input parameters: 



Function 


ACC 


EXT 


I/O Area 
Address 


Read without 
conversion 

Punch 

Read with con- 
version 


/7000 

/7001 
/7002 


Address of I/O Area 

Address of I/O Area 
Address of I/O Area 


Word Count 

Word Count 
Word Count 



Postoperative conditions and entry points: 



Function at 


PT060 


S3mibolic 
entry point 


Return 
address at 


Interrupt 
entry point 


Interrupt 
level 


Read with con- 


/7000 


PTOOO+1 


PTOOO+1 


PTOlO+1 


4 


version 












Punch 


/7001 


PTOOO+1 


PTOOO+1 


PTOlO+1 


4 


Read without 


/7002 


PTOOO+1 


PTOOO+1 


PTOlO+1 


4 


conversion 













Register status: 





ACC 


EXT 


XRl 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 














Used 


X 


X 






X 
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Significant variables: 



Symbolic location 


Contents /Use 


PTOOO+1 


Return address to caller from main line. 


PTOlO+1 


Return address from interrupt. 


PT060 


Function code, executed as follows: 




/7000 = MDX * 




/7001 = MDX *+l 




/7002 = MDC *+2 


PT340 


Data area pointer. 


PT360 


Remaining word count. 


PT370 


Switch used for reading or punching: /OOOl = punch, /0002 = read. 


PT380 


Switch used to indicate if conversion of information read is needed: 




zero = no conversion. 




non-zero = conversion. 


PT460 and PT460+1 


lOCC for read and punch. 


PT480 


Data buffer. The character to be read or punched is contained here. 


PT500 


Counter for counting first 3 characters. 
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SYSTEM DEVICE SUBROUTINE FOR DISK ~ DISKZ 

Phase ID: @DZID 

Used by: Monitor system programs 

Assembler Language programs 

FORTRAN programs 

RPG programs 
Subroutines required: ILS02 
Linkage: LDD LIST 

BSI L DZOOO 



LIST DC 
DC 


FUNCTION CODE 
I/O AREA ADDRESS 




Preoperative input parameters: 








Function 


ACC 


EXT 


I/O Area 
Address 


I/O Area 
Address + 1 


Read 


/7000 or 
/OOOO 


Address of the 
I/O Area (must 
be even) 


1 word count 
< length of defined 
data area 


Drive code and 
sector address 


Write 


/7001 


Address of the 
I/O Area (must 
be even) 


< word count 
< length of area 
to be written 
on disk 


Drive code and 
sector address 


Find 


/OOOO 


Address of the 
I/O Area (must 
be even) 


/OOOO 


Drive code and 
sector address 



Postoperative conditions and entry points: 



Function at DZ945 


Symbolic 
entry point 


Return 
address at 


Interrupt 
entry point 


Return 
address at 


Interrupt 
level 


Read 


/OOOO 


DZOOO 


DZlOO+5 


DZOlO 


DZOlO 


2 


Write 


/OlOO 


DZOOO 


DZlOO+5 


DZOlO 


DZOlO 


2 


Fuid 


/OOOO 


DZOOO 


DZlOO+5 


DZOlO 


DZOlO 


2 



Register status: 





ACC 


EXT 


XRl 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 






DZlOO+1 


DZlOO+3 






Used 


X 


X 


X 


X 




X 



1.38 



Significant variables: 






Symbolic location 


Contents /Use 


DZ350+1 


Address of the word in COMMA containing the current position of the heads 
referenced disk. 


on the 


DZ 235+1 


Address of the first word of the I/O Area. 

C[C(DZ 235+1)] = originally requested word count 
C[C(DZ 235+1) + ] = originally requested sector address 




DZ904 and 
DZ905 


First and second words of the last lOCC performed (excluding sense DSW). 




DZ908 and 
DZ909 


First and second words of forced-Read after-Seek lOCC. 




DZ901 


Sector address of previously executed forced Read. 




DZ906 and 
DZ907 


lOCC developed for user-requested function. 




DZ975 


Second word of Read-Back-Check lOCC. 




DZ912 


Word count remaining to be read or written from original. 




DZ913 


Next sector to be read or written. 




DZ910 


Second word of Seek lOCC. 
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CARDZ 

Flowcharts: FIO04-05 

Used by: SFIO 

Subroutine required: HOLEZ, ILSOl, ILS04 

Linkage: LIBF CARDZ (BSI 3 TV DISP) 

where ACC = FUNCTION CODE 

XRl = I/O AREA ADDRESS 
XR2 = WORD COUNT 



Peroperative input parameters: 




Function 


ACC 


XRl 


XR2 


Read 
Write 


/OOOO 
/0002 


I/O Area Address 
I/O Area Address 


Word Count 
Word Count 



Postoperative conditions and entry points: 



Function at CZ912 


Symbolic 
entry point 


Return 
address at 


Interrupt 
entry point 


Return 
address at 


Interrupt 
level 


Read 
Write 


/OOOO 
/0002 


CARDZ 
CARDZ 


TJBF TV link 
word 

LIBF TV link 
word 


CZIOO 
(column) 

CZllO 
(op complete) 


CZIOO 
(column) 

CZllO 
(op complete) 


1 

4 



Register status: 





ACC 


EXT 


XRl 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 














Used 


X 


X 


X 


X 




X 
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Significant variables: 



r 



Symbolic location 



CZ904 
CZ904+1 



CZ902 



CZ923 
CZ925 
CZ920 
CZOIO 

$RWCZ 



CZ918 



CZ918-3 

thru 

CZ918 



Contents /Use 



Start read or punch lOCC, set by program depending on function used to 
initiate operation. 

If read, CZ904 + 1 = CZ906 + 1 

If write, CZ904 + 1 = CZ908 + 1 

Read or Punch lOCC, set by program depending on function to read or punch 
columns. 

If read, CZ902 + 1 = CZ906 

If write, CZ902 + 1 = CZ908 

Address pointer to I/O area, incremented on each column interrupt. 

Original I/O area address -1. 

DSW is saved here on an operation-complete interrupt. 

Switch used for waiting for interrupt: 

Set positive when waiting for any interrupt. 

Set zero when colunm interrupt occurs. 

Set negative when op-complete interrupt occurs. 

Previous operation switch: 

/OOOO = previous operation was a read. 
/0002 = previous operation was a write. 

If a write function is to be performed and the previous operation was a write, 
this switch causes CARDZ to read a card and test for // in columns 1-2, 

Switch used to test for // card before writing on it; zero means only reading 
or previous operation before write was a read. 

Buffer area for saving first 3 columns; rest of card is read into fourth word 
when reading before write. 
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PNCHZ 

Flowchart: FIOll 

Used by: SFIO 

Subroutines required: HOLEZ, ILSOl, ILS04 

Linkage: LIBF PNCHZ (BSI 3 TV DISP) 

where ACC = FUNCTION CODE 

XRl = I/O AREA ADDRESS 
XR2 = WORD COUNT 



Preoperative input parameters 


: 




Function 


ACC 


XRl 


XR2 


Write 


/0002 


I/O Area Address 


Word (character) count 
of 80 



Postoperative conditions and entry points: 



Function 


Symbolic 
entry point 


Return 
address at 


Interrupt 
entry point 


Return 
address at 


Interrupt 
level 


Write 




PNCHZ 


LIBF TV link 
word 


PZ060 
(column) 

PZ080 

(op complete) 


PZ060 
PZ080 




4 



Register status: 





ACC 


EXT 


XRl 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 














Used 


X 


X 


X 


X 




X 
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Significant variables: 



Symbolic location 



PZ340 

PZ340+1 

PZ360 and 
PZ360+1 

PZ400 
PZ400+1 

PZ120+1 

PZ040 



Contents /Use 



Address pointer to I/O area; First word of Punch lOCC, Incremented on 
each column interrupt. 

Second word of Punch lOCC. 

Feed lOCC for initiating punch operation. 



Error display indicator. 

Second word of last card feed lOCC, 

Original I/O area address. 

Switch used for waiting for operation — complete interrupt: 
zero = op complete interrupt has occurred 
non-zero = waiting for op-complete 
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READZ 

Flowchart: FIO08 

Used by: SFIO 

Subroutines required: HOLEZ, ILS04 

Linkages: LIBF READZ (BSI 3 TV DISP) 

where XRl = I/O AREA ADDRESS 



Preoperative input parameters: 



Function 


XRl 


Read 


I/O Area Address 



Postoperative conditions and entry points: 



Function 


Symbolic 
entry point 


Return 

address at 


Interrupt 
entry point 


Return 
address at 


Interrupt 
level 


Read 




READZ 


LIBF TV 
link word 


RZ060 


RZ060 


4 



Register status: 







ACC 


EXT 


XRl 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 














Used 


X 


X 


X 


X 




X 



Significant variables: 



Symbolic location 


Contents/Use 


RZ360 

RZ360+1 

RZ380 


I/O Area Address; also, first word of Read lOCC. 

Second word of Read IQCC . 

Switch used for interrupt processing: 
non-zero = waiting for Interrupt 
zero = set by occurrence of interrupt 
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TYPEZ 

Flowchart: ri012 

Used by: SFIO 

Subroutines required: HOLEZ, GETAD, ILS04 

Linkage: LIBF TYPEZ (BSI 3 TV DISP) 

where ACC = FUNCTION CODE 

XRl = I/O AREA ADDRESS 
XR2 = WORD COUNT 



Preoperative 


input parameters: 




Function 


ACC 


XRl 


XR2 


Read 
Write 


/OOOO 
/0002 


I/O Area Address 
I/O Area Address 


Word count, set to 80 by 
TYPEZ 

Character count 



Postoperative conditions and entry points: 



Function at KZ910 


Symbolic 
entry point 


Return 
address at 


Interrupt 
entry point 


Return 
address at 


Interrupt 
level 


Read 
Write 


/OOOO 
/0002 


TYPEZ 
TYPEZ 


via LIBF TV 
link word 
via LIBF TV 
link word 


KZlOO 
KZlOO 


KZlOO 
KZlOO 


4 
4 



Register status: 





ACC 


EXT 


XRl 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 














Used 


X 


X 


X 


X 







Significant variables: 



Symbolic location 


Contents /Use 


KZ911 
KZ210+1 
KZ910 
KZ906 

KZ914 
KZ913 
KZ900 
KZ902 
KZ912 


Original character count plus one. 

Original I/O area address. 

Read-Write function indicator word. 

lOCC used to print characters from KZ914. 

Buffer word used to hold character to be printed. 

Saved DSW from Sense-with-reset in interrupt routine. 

lOCC used to read Keyboard character into I/O area. 

lOCC used to release Keyboard. 

Number of remaining characters to be typed. (Each character read is typed. ) 
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WRTYZ 

Flowchart: riO09 

Used by: SFIO 

Subroutines required: GETAB, EBCTR, ILS04 

Linkage: LIBF WRTYZ (BSI 3 TV DISP) 

where XRl = I/O AREA ADDRESS 
XR2 = WORD COUNT 



Preoperative input parameters: 




Function 


XRl 


XR2 


Write 


I/O Area Address 


Character Count 



Postoperative conditions and entry points: 



Function 


Symbolic 
entry point 


Return 
address at 


Interrupt 
entry point 


Return 
address at 


Interrupt 
level 


Write 




WRTYZ 


WRTYZ+2 


TZIOO 


TZIOO 


4 



Register status: 





ACC 


EXT 


XRl 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 














Used 


X 


X 


X 


X 







Significant variables: 



Symbolic location 


Contents /Use 


TZ907 
TZ908 
TZ902 


Number of characters remaining to be printed. 
Output buffer for printing character. 
lOCC used to print character out of TZ908. 
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PRNZ 

Flowchart: FlOlO 

Used by: SFIO 

Subroutines required; ILS04 

Linkage: LIBF PRNZ (BSI 3 TV DISP) 

where XRl = I/O AREA ADDRESS 
XR2 = WORD COUNT 



Preoperative input parameters: 



Function 


XRl 


XR2 


Print 


I/O Area Address 


Word count, including 1 for 
carriage control character 



Postoperative conditions and entry points: 



Fimction 


Symbolic 
entry point 


Return 
address at 


Interrupt 
entry point 


Return 
address at 


Interrupt 
level 


Print 




PRNZ 


PRNZ+2 


WZIOO 


WZIOO 


4 



Register status: 





ACC 


EXT 


XRl 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 














Used 


X 


X 


X 


X 




X 



Significant variables : 




Symbolic location 


Contents /Use 


WZ904 


First word of Print lOCC, Address of output area. 


WZ906 


Address for store after character conversion. 


WZ908 


Counter for character conversion. 


WZ990 


EBCDIC-to-1403-Printer-code conversion table. 


WZ934 


Transfer complete switch: zero = transfer complete. 


WZ933 


EBCDIC character being converted. 
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PRNTZ 

Flowchart: FIO06 

Used by: SFIO 

Subroutines required: ILS02 

Linkage: LIBF PRNTZ (BSI 3 TV DISP) 

where XRl = I/O AREA ADDRESS 
XR2 = WORD COUNT 



Preoperative input parameters: 




Function 


XRl 


XR2 


Print 


Output buffer address (first char- 
acter is carriage control) 


Word count, including carriage 
control character. 



Postoperative conditions and entry points: 



Function 


Symbolic 
entry point 


Return 
address at 


Interrupt 
entry point 


Return 
address at 


Interrupt 
level 


Print 




PRNTZ 


PRNTZ+2 


AZIOO 


AZIOO 


2 



Register status: 







ACC 


EXT 


XRl 


XR2 


XR3 


fStatus 


Mainline 


Saved at/restored from 
symbolic location 














Used 


X 


X 


X 


X 




X 


Interrupt 
level 2 


Saved at/restored from 
symbolic location 














Used 
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Significant variables: 



Symbolic location 


Contents /Use 


AZ150+1 


Address of first data word in output buffer. 


AZ919 


Word count. 


AZ900 


Interrupt exit switch: 
+ , if line is complete 
- , if idles complete 
, if waiting 


AZ922 


Space counter (positive number of spaces). 


AZ914 


DSW storage. 


AZ924 


Scan counter (print). 


AZ918 


Emitter- character storage. 
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PAPTZ 

Flowchart: FIO07 

Used by: SFIO 

Subroutine required: ILS04 

Linkage: LIBF PAPTZ (BSI 3 TV DISP) 

where ACC = FUNCTION CODE 

XRl = I/O AREA ADDRESS 
XR2 = WORD COUNT 



Preoperative input parameters: 




Function 


ACC 


XRl 


XR2 


Read 

Write 


/OOOO 
/0002 


Address of I/O Area 
Address of I/O Area 


Word count, set to 120 
by PAPTZ 

Word count 



Postoperative conditions and entry points: 



Function at BZ924 


Symbolic 
entry point 


Return 
address at 


Interrupt 
entry point 


Return 
address at 


Interrupt 
level 


Read 
Write 


/OOOO 
/0002 


PAPTZ 
PAPTZ 


PAPTZ+2 
PAPTZ+2 


BZlOO 
BZlOO 


BZlOO 
BZlOO 


4 
4. 



Register status: 





ACC 


EXT 


XRl 


XR2 


XR3 


!3tatus 


Mainline 


Saved at/restored from 
symbolic location 














Used 


X 


X 


X 


X 
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Significant variables: 



Symbolic location 


Contents /Use 


BZ924 
BZ929 
BZ300+1 
BZOlO 

BZ902 
BZ904 
BZ925 

BZ926 
BZ906 


Read/Write indicator. 

Number of words remaining to be read or punched. 

Address of I/O Area, 

Routine busy indicator: zero, no Interrupt waiting to be processed; non- 
zero, an interrupt waiting to be processed, 

lOCC used to Start paper tape reader. 

lOCC used to Read paper tape. 

Read area for BZ904, Read paper tape lOCC. 
Write area for BZ906, Punch paper tape lOCC, 

DSW from sense-with-reset in interrupt subroutine, 

lOCC used to Punch paper tape. 
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CARDO 

I Used by: Assembler Language programs and RPG generated programs 

Subroutines required: ILSOO, ILS04 

Linkage: LIBF CARDO (BSI 3 TV DISP) 

DC ARGl 

DC ARG2 

DC ARG3 



Preoperative input parameters: 



Function 


ARGl 


ARG2 


ARG3 


I/O Area Address 


Test 


/OOOO 


Return to this word if 
busy 


Return to this word if not 
busy 


Not used 


Read 


/lOOO 


I/O Area Address 


NSI 


Word count 


Punch 


/2000 


I/O Area Address 


NSI 


Word count 


Feed 


/3000 


Not used 


NSI 


Not used 


Stack 


/4000 


Not used 


NSI 


Not used 



Postoperative conditions and entry points: 



Function 


at CA20 


Symbolic 
entry point 




Test 




CARDO 




Read 


/7000 


CARDO 




Punch 


/7001 


CARDO 




Feed 


/7002 


CARDO 




Stack 


/7003 


CARDO 





Return 
address at 


Interrupt 
entry point 


Return 
address at 


Interrupt 
lievel 


CA34+1 








CA34H-1 


INTl 
INT2 


INTl 
INT2 




4 


CA34+1 


INTl 
INT2 


INTl 
INT2 




4 


CA34+1 


INT2 


INT2 


4 


CA34+1 









Register status: 





ACC 


EXT 


XRl 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 


TEMP 




CA30+1 


CA31+1 




CA32 


Used 


X 




X 


X 
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Significant variables : 



Symbolic location 


Contents /Use 




COUNT 


Number of words left to be transferred. 




COLM 


Address being transferred to or from. 




RSTRT 


Word count for restart. 




RSTRT+1 


Starting address for restart. 




BUSY 


Busy indicator; non-zero = busy. 




CHAR 


Second half of the Sense DSW lOCC that was last executed. 




ERROR 


Skip indicator; non-zero = feed a card. 
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CARDl 

Used by: Assembler Language programs 
Subroutines required: ILSOO, ILS04 
Linkage: LIBF CARDl (BSI 3 TV DISP) 

DC ARGl 

DC ARG2 

DC ARG3 



Preoperative input parameters: 



Function 


ARGl 


ARG2 


ARG3 


I/O Area Address 


Test 


/oooo 


Return to this word if 
busy 


Return to this word 
if not busy 


Not used 


Read 


/lOOO 


I/O Area Address 


Address of user 
error routine 


Word coimt 


Punch 


/2000 


I/O Area Address 


Address of user 
error routine 


Word count 


Feed 


/3000 


l/o Area Address 


Address of user 
error routine 


Not used 


Stack 


/4000 


Not used 


Not used 


Not used 



Postoperative conditions and enter points: 



Trimp-J-ifi-n 


at CR24+1 


Symbolic 


Return 


Interrupt 


Return 


literrupt 






entry point 


address at 


entry point 


address at 


level 


Test 




CARDl 


EXIT+1 








Read 


/OOOl 


CARDl 


EXIT+1 


INTl 
INT2 


INTl 
INT2 



4 


Punch 


/0002 


CARDl 


EXIT+1 


INTl 
INT2 


INTl 
INT2 




4 


Feed 


/0003 


CARDl 


EXIT+1 


INT2 


INT2 


4 


Stack 


/0004 


CARDl 


EXIT+1 









1S4 



Register status: 





ACC 


EXT 


XRl 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 


TEMP 




CR42+1 


CR44+1 




CR46 


Used 


X 










X 



Significant variables: 



Symbolic location 



RESTR 

RESTR+1 

RESTR+2 

ERROR 

INDIC 

INIT 

COLM 

COUNT 

CHAR 



Contents /Use 



Coimt information for restart. 

I/O area address for restart. 

Address of error routine; also, busy indicator. 

Skip Indicator; non-zero = feed a card. 

Feed check at read station indicator; non-zero = feed check. 

Last initiate command given. 

Address being transferred to or from. 

Number of words to transfer. 

Second half of the Sense DSW lOCC used. 
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READO 

I Used by: Assembler Language programs and RPG generated programs 
Subroutines required: ILS04 
Linkage: LIBF READO (BSI 3 TV DISP) 
DC ARGl 
DC ARG2 



Preoperative input parameters: 



Function 


ARGl 


ARG2 


I/O Area 


Test 


/OOOO 


Return to this word if busy 


Not used 


Read 


/lOOO 


Address of word count 


Word count 


Feed 


/lOOO 


Address of word count 


Word count 
(must be zero) 



Postoperative conditions and entry points: 



Function 


Symbolic 
entry point 


Return 
address at 


Interrupt 
entry point 


Return 
address at 


Intesrrupt 
level 


Test 


READO 


RE 180+1 








Read 


READO 


RE180+1 


RE048 


RE048 


4 


Feed 


READO 


RE 180+1 


RE048 


RE 048 


4 



Register status: 





ACC 


EXT 


XRl 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 


RE 324 




RE 144+1 


RE 156+1 




RE168 


Used 


X 




X 









Significant variables: 



Sjmibolic location 



Contents /Use 



RE228 
RE264 



Busy Indicator; non-zero Indicates busy. 
I/O area address. 
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READl 

Used by: Assembler Language programs 

Subroutines required: ILS04 

Linkage: LIBF READl (BSI 3 TV DISP) 

DC ARGl 

DC ARG2 

DC ARG3 



Preoperative inpt 


it parameters 


: 






Function 


ARGl 


ARG2 


ARG3 


I/O Area Address 


Test 


/oooo 


Return to this word if busy 


Return to this word if not 
busy 


Not used 


Read 


/lOOO 


I/O Area Address 


Address of user's error 
routine 


Word count 


Feed 


/lOOO 


I/O Area Address 


Address of user's error 
routine 


Word count 
(must be zero) 



Preoperative conditions and entry points: 



Function 


Symbolic 
entry point 


Return 
address at 


Interrupt 
entry point 


Return 
address at 


Interrupt 
level 


Test 


READl 


RE 180+1 








Read 


READl 


RE 180+1 


RE 048 


RE048 


4 


Feed 


READl 


RE 180+1 


RE048 


RE 048 


4 



Register status: 





ACC 


EXT 


XRl 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 


RE 324 




RE 144+1 


RE 156+1 




RE 168 


Used 


X 




X 









Significant variables: 



Symbolic location 


Contents/Use 


RE228 
RE264 
RE360+2 
RE370+2 


Busy indicator; non-zero indicates busy. 

I/O Area address. 

Address of user's error routine for read error. 

Address of user's error routine during last card. 

- ' — ■ 
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PNCHO 



I Used by: Assembler Language programs and RPG generated programs 
Subroutines required: ILSOO, ILS04 
Linkage: UBF PNCHO (BSI 3 TV DISP) 

DC ARGl 

DC ARG2 

DC ARG3 

Preoperative input parameters: 



Function 



Test 



Punch 



Feed 



ARGl 



/OOOO 
/2000 
/3000 



ARG2 



Return to this word if busy 
Address of I/O Area 
Not used 



ARG3 



Return to this word if not 
busy 

Return to this word 
following call 

NSI 



Postoperative conditions and entry points: 



I/O Area Address 



Not useid 



Word count 



Not used 




— 1 

Sjonbolic 
entry point 


Return 
address at 


Interrupt 
entry point 


Return 
address at 


Interrupt 

level 


PNCHO 


C A 34+1 








PNCHO 


C A 34+1 


INTl 

INT2 


INTl 

INT2 




4 


PNCHO 


C A 34+1 


INT2 


INT2 


4 



Register status: 





ACC 


EXT 


XRl 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 


TEMP 




CA30+1 


CA31+1 




CA32 


Used 


X 




X 
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Significant variables: 



Symbolic location 


Contents /Use 


CHAR 


Second half of DSW last sensed. 


COLM 


Address being punched from. 


BUSY 


Non-zero indicates busy. 


COUNT 


Number of columns to be punched. 


ERROR 


Non-zero indicates feed a card (SKIP). 


RSTRT 


Word count for restart. 


RSTRT+1 


Data address for restart. 
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PNCHl 

Used by: Assembler Language programs 
Subroutines required: ILSOO, ILS04 
Linkage: LIBF PNCHl (BSI 3 TV DISP) 

DC ARGl 

DC ARG2 

DC ARG3 



Preoperative input parameters: 



Function 


ARGl 


ARG2 


ARG3 


I/O Area Address 


Test 


/OOOO 


Return to this word if busy. 


Return to this word if not 
busy 


Not used 


Punch 


/2000 


Address of I/O Area 


Address of user's error 
routine 


Word count 


Feed 


/3000 


Not used 


Address of user's error 
routine 


Not used 



Postoperative conditions and 


entry points: 










Fionctlon at CA20 


Symbolic 


Return 


Interrupt 


Return 


Interrupt 


entry point 


address at 


entry point 


address at 


level 


Test 




PNCHl 


CA34+1 








Punch 


/7001 


PNCHl 


CA34+1 


INTl 
INT2 


INTl 
INT2 




4 


Feed 


/7002 


PNCHl 


CA34+1 


INT2 


INT2 


4 



Register status: 





ACC 


EXT 


XRl 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic locations 


TEMP 




CA30+1 


CA31+1 




CA32 


Used 


X 




X 
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Significant variables: 



Symbolic location 


Contents /Use 


CHAR 


Second half of Sense DSW lOCC. 


COLM 


Address being punched from. 


BUSY 


Busy indicator; non-zero = busy. 


COUNT 


Number of columns to punch. 


ERROR 


Non-zero indicates feed a card (SKIP). 


INDIC 


Read station feed check if non-zero. 


RSTRT 


Word count for restart. 


RSTRT+1 


Data address for restart. 


RSTRT+2 


Address of user's error routine. 
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TYPED 



Used by: Assembler Language programs 

Subroutine required: ILS04 

Linkage: LIBF TYPEO (BSI 3 TV DISP) 

DC ARGl 

DC ARG2 



Preoperative input parameters: 






Function 


ARGl 


ARG2 


I/O Area Address 


Test 


/OOOO 


Return to this word if opera- 
tion is not complete 




Read- Print 


/lOOO 


I/O Area Address 


Word Count 


Print 


/2000 


I/O Area Address 


Word Count 



Postoperative conditions and entry points: 



Fimction 


at TY24 


Sjrmbolic 
entry point 


Return 
address at 


Interrupt 
entry point 


Return 
address at 


Itoterrupt 
level 


Test 




TYPEO 


EXIT+1 








Read Print 


/7000 


TYPEO 


EXIT+1 


INTl 


INTl 


4 


Print 


/7001 


TYPEO 


EXIT+1 


INTl 


INTl 


4 



Register status: 





ACC 


EXT 


XRl 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic locations 


SAVAQ 


SAVAQ+1 


SAVl+1 


SAV2+1 




SAVST 


Used 


X 




X 


X 




X 
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Significant variables: 



Symbolic location 


Contents /Use 


TY24 


Functional branch instruction: 
/7000 = MDX * if Read/Print, 
/7001 = MDX *+l if Print. 


READ 


Pointer to data input area. 


READ+1 


Last half of Read lOCC. 


RSTRT+1 


Data area address. 


RSTRT+2 


Word count. 


COUNT 


Contents depend on the function: 

/7000 - number of words remaining to be read. 

/7001 - count of remaining characters to be printed, initially set to twice the 
word count. 


PRINT 


lOCC used to print character from TEMPI. 


INIT 


lOCC used to release keyboard. 


DSWRD 


Device status word from sensing device in interrupt routine. 


RIGHT 


Switch indicating which character in TEMPI will be used next: 
/OOOO = Use right character 
/OOOl = Go get next word from data area and use left character. 


TEMPI 


Contents depend on the function; 

/7000 - rotate/tilt character converted from hoUerith input character from 

keyboard. Character is printed on console from this area. 
/7001 - Temporary storage for printing a character (high order 8 bits was last 

character printed). 


TY90+1 


Address of Hollerith table. 


TY92+1 


Address of Rotate /Tilt character table. 
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PRNTl 

Used by: Assembler Language programs and RPG generated programs 

Subroutines required: ILSOl 

Linkage: LIBF PRNTl (BSI 3 TV DISP) 

DC ARGl 

DC ARG2 

DC ARG3 



Preoperative input parameters: 






Function 


ARGl 


ARG2 


ARG3 


Test 


/OOOO 


Returns to this word if 
routine is busy 


Returns to this word if routine 
is not busy 


Print 


/20X0 

X = space control 

, space after print 

1 , suppress space 


I/O Area Address 


Error routine address 


Control 
Carriage 


/3XY0 

X = immediate control 
Y = after print control 


Return to this word. 




Print 
Numeric 


/40X0 

X = space control 

, space after print 

1 , suppress space 


I/O Area Address 


Error routine address 



Postoperative conditions and entry points: 



Function at 


PARI 


Symbolic 
entry point 


Return 
a.ddress at 


Interrupt 
entry point 


Return 
address at 


Interrupt 
level 


Test 




PRNTl 


EXIT+1 








Print 


/20X0 


PRNTl 


EXIT+1 


INTl 


INTl 


1 


Control Carriage 


/3XY0 


PRNTl 


EXIT+1 


INTl 


INTl 


1 


Print Numeric 


/40X0 


PRNTl 


EXIT+1 


INTl 


INTl 


1 



1(54 



Register status: 






ACC 


EXT 


XRl 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 


AQ 


AQ+1 


FC58+1 


FC58+3 




FC58+4 


Used 


X 


X 


X 


X 




X 


Interrupt 
level 1 


Saved at/restored from 
symbolic location 








OUT+1 






Used 


X 






X 







Significant variables: 



Symbolic location 


Contents /Use 


ILLGL+2 


Address of call +1. 




NEGWD 


2's complement of the word count. 




CLEAR 


Last entry to the clear print buffer routine. 




DSW 


DSW from the last interrupt. 




SPSK 


Space count if (-). Skip if (+). Compare for skip 


response interrupt. 


PASS 


Interrupt switch. 




FC16+1 


Address of call +2. 




STRE3+2 


Address of call +3. 




SCAN+1 


End of the I/O area. 




CTR48 


Scan counter to determine when line is complete. 




CTR16 


Coimter for 16 idles. 
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P.RNT3 

Used by: Assembler Language programs and RPG generated programs 

Subroutines required: ILS04 

Linkage: LIBF PRNT3 (BSI 3 TV DISP) 

DC ARGl 

DC ARG2 

DC ARG3 



Preoperative input parameters: 



Function 


ARGl 


ARG2 


ARG3 


Test 


/OOOO 


Return to this word if 


Return to this word if not 






busy 


busy 


Print 


/20Z0 


Address of I/O Area 


Address of error subroutine , 




Z = space control 




error parameter required 




1, space suppressed 








0, space after print 






Control 


/3XY0 

X = immediate control 
Y = control after print 







Postoperative conditions and entry points: 



Function 


Symbolic 
entry point 


Return 
address at 


Interrupt 
entry point 


Return 
address at 


Interrupt 
level 


Test 




PRNT3 


W3080+1 








Print 


Third digit at 
W3920 


PRNT3 


W3080+1 


W3010 


W3010 


4 


Control 


Third digit at 
W3920 


PRNT3 


W3080+1 


W3010 


W3010 


4 



Register status: 





ACC 


EXT 


XRl 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 


W3905 


W3905+1 


W3060+1 


W3050+1 




W3070 


Used 


X 


X 


X 


X 




X 
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Significant variables: 



Symbolic location 


Contents /Use 


W3920 

W3935 
W3990 
W3975 
W3130+1 


First word of the Sense- DSW-without- reset lOCC; also, Carriage control 
character. 

Routine busy switch, non-zero indicates the routine is processing a message. 

First word of 60-word output buffer. 

DSW saved for checking of indicator bits at appropriate time; error bits 
during print complete ch. 9/12 during carriage operation complete* 
Address of user output area. 
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PAPTl 

Used by: Assembler Language programs 

Subroutines used: ILS04 

Linkage: LIBF PAPTl (BSI 3 TV DISP) 

DC ARGl 

DC ARG2 

DC ARG3 



Preoperative input parameters: 








Fimction 


ARGl 


ARG2 


ARG3 


I/O Area Address 


Test 


/OOOO 


Return to this word if 
the operation is not 
complete 


Return to this word if 
previous operation is 
complete 




Read 


/IXOO 


I/O Area Address 


Address of user error 


Word count (1/2 the 




X=0, Check 




routine 


number of char- 




X=l, No check 






acters) 


Punch 


/2X00 


I/O Area Address 


Address of user error 


Word count (1/2 the 




X=0, Check 




routine 


number of char- 




X=l, No check 






acters) 



Postoperative conditions and entry points: 



Function at DEVIC 


Symbolic 
entry point 


Return 
address at 


Interrupt 
entry point 


Return 
address at 


Interrupt 
level 


Test 
Read 
Punch 


/0002 
/OOOl 


PAPTl 
PAPTl 
PAPTl 


RET+1 
RET+1 
RET+1 


INTl 

INTl 


INTl 
INTl 


4 
4 



Register status 


: 
















ACC 


EXT 


XRl 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 


SAVA 




XRl+1 






XRl+2 


Used 


X 




X 






X 
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Significant variables: 



Symbolic location 


Contents/Use 


DEVIC 


Function indicator: 
/0002 = Read. 
/OOOl = Punch. 




CHECK 


Switch for controlling checking function: 
/OOOO = Do not check. 
/FFOO = Check for a Delete or Stop character. 




WDCNT 


Count of remaining words. 




lOAR 


Data area pointer. 




USEIlR+2 


Address of user error routine. 




BUF 


Temporary storage for word containing 2 characters to be punched. 




SENSE 


Sense DSW for paper tape. 




READS 


lOCC for starting paper tape reader. 




lOCC 


Read or punch control word. 




FORD 


Character switch: 

(Punch) Even = Both characters in the word have been pimched, 
the next character. 
Odd = Punch the right character. 
(Read) Even = Second character of word was just read. 
Odd = First character of word was just read. 


go get 
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PAPTN 

Used by: Assembler Language programs 

Subroutine required: ILS04 

Linkage: LIBF PAPTN (BSI 3 TV DISP) 

DC ARGl 

DC ARG2 

DC ARCS 



Preoperative input parameters: 



Function 



Test 



Read 



Punch 



ARGl 



/OOOO 

Test reader 
/OOOl 

Test punch 

/IXOO 

X=0, Check 
X=l, No check 

/2X00 

X=0, Check 
X=l, No check 



ARG2 



Retui'n to this word if 
the previous operation 
is not complete 



I/O Area Address 



I/O Area Address 



ARG3 



Return to this word if 
previous operation is 
complete 



Address of user 
error routine 



Address of user 
error routine 



I/O Area 
Address 



Word coimt 
(1/2 the number 
of characters) 

Word count 
(1/2 the; number 
of characters) 



Postoperative conditions and entry points: 



Fimction 


Symbolic 
entry point 


Return 
address at 


Interrupt 
entry point 


Return 
address at 


Interrupt 
level 


Test 


PAPTN 


RET+1 








Read 


PAPTN 


RET+1 


INTN 


INTN 


4 


Punch 


PAPTN 


RET+1 


INTN 


INTN 


4 



Register status: 





ACC 


EXT 


XRl 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 


SAVA 




XRl+1 


XR2+1 




3ffi2+2 


Used 


X 




X 


X 




X 
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Significant variables: 



Sjmibolic location 



CHECK 



WDCNT 
RWDCT 

lOAR 
RIOAR 

USERl 
RUSEl 

BUF 
RBUF 



Index Register 2 



lOCC 
READS 



CHAR 
(RCHAR) 



SENSR 
RIOCC 
IOCC2 



Contents /Use 



/FFOO = Check for a Delete or Stop character. 
/OOOO = Do not check. 

Number of words remaining to be punched. 
Number of words remaining to be read. 

Address pointer to user data area (punch). 
Address pointer to user data area (read). 

Address of user error routine (punch). 
Address of user error routine (read). 

Temporary storage for word to be punched. 
Temporary storage for word to be read into. 

Address of RDTBL, if reading. 
Address of PNTBL, if punching. 

lOCC used for punching a character. 
lOCC used to start tape reader. 

Switch used to indicate which half of the word is to be used: 
Even = Both characters In word used. 
Odd = First character of word was used. 

DSW received from Sense-with-reset lOCC. 

lOCC used to read paper tape. 

lOCC used to punch a Delete character. 
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PLOTl 

Used by: Assembler Language programs 

Subroutines used: ILS03 

Linkage: LIBF PLOTl (BSI 3 TV DISP) 

DC ARGl 

DC ARG2 

DC ARG3 



Preoperative Input parameters: 



Function 


ARGl 


ARG2 


ARG3 


I/O Area Address 


Test 
Plot 


/OOOO 
/lOOO 


Return here if routine 
busy 

I/O Area Address 


Return here If routine 
not busy 

Address of user's 
error routine 


Not used 
Word count 



Postoperative conditions and entry points: 



Function 


Symbolic 
entry point 


Return 
address at 


Interrupt 
entry point 


Return 
address at 


Interrupt 
level 


Test 
Plot 


PLOTl 
PLOTl 


RET+1 
RET+1 


INTl 


INTl 


3 



Register status: 





ACC 


EXT 


XRl 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 


SAVAQ 


SAVAQ+1 


XRl+1 






XRl+2 


Used 


X 




X 
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Significant variables: 



Sjrmbolic location 


Contents /Use 




DEVIC 


Non-zero indicates invalid device. 




BUSY 


Non-zero indicates busy. 




DIGIT 


Counter to determine which section of packed word is being used. 




SENSE 


Word count, number of words for this plot. 




lOAR 


Output area address In user program. 




BUF 


Word being decoded for plotting. 




FIRST 


Non-zero indicates first command. 




DUPCT 


Non-zero indicates repeat some command or plot. 




CTRL 


Last plot command executed. 




WORK 


Command that has been separated out of BUF. 
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OMPRl 

Used by: Assembler Language programs 

Subroutines required: ILS04 

Linkage: LIBF OMPRl (BSI 3 TV DISP) 

DC ARGl 

DC ARG2 

DC ARG3 



Preoperative input parameters: 








Function 


ARGl 


ARG2 


ARG3 


NOTE 


Test 


/OOOO 


Return to this word if 
program is busy 


Return to this word If 
program is not busy 




Timing 


/OOOl 


Return to this word if 


Return to this word if bit 




Mark 




bit 8 on in DSW 


8 is off in DSW 




Test 










Read 


/IXOO 


I/O Area Address 


Address of user error 
routine 


X = 1, Stacker Select 
X = 0, No Stacker 
Select 


Feed 


/3000 


NSI (return to this 
word after feed) 


NSI 




Disconnect 


/4000 


NSI (return to this 
word after disconnect) 


NSI 




Stacker 


/5000 


NSI (return to this 


NSI 




Select 




word after Stacker 
Select) 







Postoperative conditions and entry points: 



Function at 


MPR62 


Symbolic 
entry point 


Return 
address at 


Interrupt 
entry point 


Return 
address at 


Interrupt 
level 


Test 




OMPRl 


MPR59+1 








Timing Mark 




OMPRl 


MPR59+1 








Test 














Read 


/FFFE 


OMPRl 


MPR59+1 


INTl 


INTl 


4 


Feed 


/OOOO 


OlHIPRl 


MPR59+1 


INTl 


INTl 


4 


Disconnect 




OMPRl 


MPR59+1 








Stacker 




OMPRl 


MPR59+1 








Select 
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Register status: 





ACC 


EXT 


XRl 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 


SAVAQ 


SAVAQ+1 


SAVXl 


MPR56+1 




MPR58 


Used 


X 


X 


X 


X 




X 



Significant variables: 



Symbolic location 


Contents /Use 


Accumulator 


At entry to a user error routine: 

ACC = 0001, Master Mark detected. 

ACC = 0002, Read Error and/or Timing Mark Error. 

ACC = 0003, Hopper Empty. 

ACC = 0004, Document Selected. 


MPR84+2 


Entry to user's error routine. 


MPR62 


Fimction: 

/FFFE = Read (2000) 
/OOOO = Feed (3000) 


READ 


lOCC for Read function. 


READ+1 


Address of user I/O area. 


MPR68 


NONZERO, Feed has already been performed. 

ZERO, Feed has not been initiated for this Read function. 


CNTRL and 
CNTRL+1 


lOCC for Feed function. 


STKSL and 
STKSIrH 


lOCC for Stacker select. 


DSCNT and 
DSCNT+1 


lOCC for Disconnect function. 


BUSY 


Program busy indicator: 
zero = Not Busy. 
non-zero = Busy. 


MPR64 


Zero, No first character interrupt. 

Non Zero, Have received first character Interrupt. 


MPR66 


Master mark indicator switch: 
zero = No master mark, 
non-zero = Master mark read. 


Index Register 1 


Address of the calling sequence. 
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WRTYO 

Used by: Assembler Language programs and RPG generated programs 

Subroutines required: ILS04 

Linkage: LIBF WRTYO (BSI 3 TV DISP) 

DC ARGl 

DC ARG2 



Preoperative input parameters: 



Function 


ARGl 


ARG2 


I/O Area Address 


Test 
Print 


/OOOO 
/2000 


Return to this word if 
operation is not complete 

I/O Area Address 


Word Count 



Postoperative conditions and entry points: 



Function 


Symbolic 
entry point 


Return 
address at 


Interrupt 
entry point 


Return 
address at 


Interrupt 
level 


Test 
Print 


WRTYO 
WRTYO 


WR36+1 
WR36+1 


INTl 


INTl 


4 



Register status: 





ACG 


EXT 


XRl 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 


SAVA 




WR30+1 


WR32+1 




WR34 


Used 


X 




X 


X 




X 



Significant variables: 




Symbolic location 


Contents /Use 


COUNT 

lOAR 

TEMPI 

PRINT 

PRINT+1 

RIGHT 

TEMP 


Dynamic word counter; number of words remaining to be printed. 

Pointer to data area, address of last word used. 

Character to be printed, high order 8 bits was last character printed. 

First word of lOCC to print character out of TEMPI. 

Second word of lOCC to print character out of TEMPI. 

Switch indicating whicli ctiaracter in TEMPI will be used next: 
/OOOO = Right character. 
/OOOl = Go get next word from date area and use left character. 

Right half of Sense-with-reset lOCC. 
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DlSKl 

Used by: Monitor system programs. Assembler Language programs 

Subroutines required: ILS02 

Linkage:* for monitor system programs 



LDD 




LIST 


BSI 


L 


DOOOO 


LIST DC 




FUNCTION CODE 


DC 




I/O AREA ADDRESS 



for Assembler Language programs 

(BSI 3 TV DISP) 



LIEF 


DISK! 


DC 


ARGl 


DC 


ARG2 


DC 


ARG3 


DC 


ARG4 



*This subroutine may be entered by user-written Assembler Language programs via the LIBF TV or by 
monitor system programs via a direct branch. If a direct branch is used, DISKl uses the parameters contained 
in the ACC and EXT to construct the parameters of a LIBF and simulates a LIBF entry by calling on itself. 



Preoperative input parameters (for LIBF entry) t : 



Function 


ARGl 


ARG2 


ARG3 


ARG4 


I/O Area Address 


Test 


/OOOO 


Not used 


Return to this 
word if busy 


Return to this 
word if not busy 


Not used 


Read 


/lOOO 


Address of the 


Address of user 


Return to this 


Word 1 = word 






I/O Area 


error routine 


word after 

initiating 

operation 


count 
Word 2 = drive code 
and sector 
address 


Write 


/2000 


Address of the 


Address of user 


Return to this 


Word 1 = word 


W/O 




I/O Area 


error routine 


word after 


count 


RBC 








initiating 
operation 


Word 2 = drive 
code and 
sector 
address 


Write 


/3000 


Address of the 


Address of user 


Return to this 


Word 1 = word count 


With 




I/O Area 


error routine 


word after 


Word 2 = drive 


RBC 








initiating 
operation 


code and sector 
address 


Write 


/4000 


Address of the 


Address of user 


Return to this 


Word 1 = not used 


Immediate 




I/O Area 


error routine 


word after ini- 
tiating operation 


Word 2 = drive 
code and sector 
address 


Seek 


/500x 


Address of the 


Address of user 


Return to this 


Word 1 = not used 




X = seek option 


I/O Area 


error routine 


word after ini- 


Word 2 = drive 




displacement 






ting operation 


code and sector 
address 



tApplies to simulated LIBF 
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Postoperative conditions and entry points: 



Function at 


D1928 


Symbolic 
entry point 


Return 
address at 


Interrupt 
entry point 


Return 
address at 


Interrupt 
level 


Test 


/OOOO 


DIOOO (branch) 
D1020+2 (LIBF) 


D1070 


D1020 


D1020 


2 


Read 


/OOOl 


DIOOO (branch) 
D1020+2 (LIBF) 


D1070 


D1020 


D1020 


2 


Write W/O RBC 


/0002 


DIOOO (branch) 
D1020+2 (LIBF) 


D1070 


D1020 


D1020 


2 


Write W/RBC 


/0003 


DIOOO (branch) 
D1020+2 (LIBF) 


D1070 


D1020 


D1020 


2 


Write Immediate 


/0004 


DIOOO (branch) 
D1020+2 (LIBF) 


D1070 


D1020 


D1020 


2 


Seek W/O Seek 
Option 


/0005 


DIOOO (branch) 
D1020+2 (LIBF) 


D1070 


D1020 


D1020 


2 


Seek With Seek 
Option 


/0005 
(D1929=x000) 


DIOOO (branch) 
D1020+2 (LIBF) 


D1070 


D1020 


D1020 


2 



Register status: 





ACC 


EXT 


XRl 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 


D1912+1 


D1912 


D1060+2 


D1060+4 




D1060 


Used 


X 


X 


X 


X 




X 
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Significant variables: 



Symbolic location 


Contents/Use 


D0006 


If DISKl was entered by a monitor system program at DIOOO, this word is used by 




DISKl to simulate a LIBF link word. The contents of this word should reference 




the simulated LIBF at symbolic location D0060, 


DIOOO 


Monitor system program entry. 


Dl.020+2 


LIBF TV entry. 


D1020+4 


LIBF TV link word. Contains the address of the first parameter in the calling 




sequence. 


D0235+1 


Address of the word containing the beginning of the file -protected area of the disk 


(D0310+1) 


on the specified drive. 


D0280+1 


Address of a table in COMMA containing the list of defective cylinders of the disk 




on the referenced drive. 


D0305+1 


Address of the device code to be used corresponding to the referenced drive. 


(D0330+1) 




D0350+1 


Address of the word in COMMA containing the current position of the heads on the 


(D0390+1) 


referenced disk. 


D0901 


Sector address of previously executed Forced Read. 


D1901 


Current arm position obtained by reading the sector address after seeking. 


D1902 and 


Last two words of sector previously read. The area is used to store an inter- 


D1903 


mediate word count and sector address. 


D1904 and 


lOCC for the operation currently being performed. 


D1905 




D1906 ahd 


lOCC for the user-requested function. 


D1907 




D1908 and 


lOCC to reader sector address into D1901 after a seek operation. 


D1909 




D1911 


Second word of Sense lOCC. 


D1912 and 


used to save and restore the ACC and EXT. 


D1913 




D1925 


Word count remaining to be read or written from originally requested word count. 


D1926 


Next sequential sector to be read or written. 


D1929 


Non-zero if the seek option was requested. 


D1930 


Non-zero if the displacement option was requested. 


D1932 


Second word of Seek lOCC. 


D1938 


Current sector address. 


$DBSY 


Non-zero indicated routine is busy; this word must be cleared to zero before entry 




to this routine is permitted. 
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DISKN 



Used by: Monitor system programs, Assembler Language programs 

Subroutines required: ILS02 

Linkage:* for monitor system programs 



LIST 



LDD 


LIST 


BSI L 


DOOOO 


DC 


FUNCTION CODE 


DC 


I/O AREA ADDRESS 


mbler Language programs 


LIBF 


DISKN (BSI 3 TV DISP) 


DC 


ARGl 


DC 


ARG2 


DC 


ARG3 


DC 


ARG4 



*This subroutine may be entered by user-written Assembler Language programs via the LIBF TV or by moni- 
tor system programs via a direct branch. If a direct branch is used, DISKN uses the parameters contained in 
the ACC and EXT to construct the parameters of a LIBF and simulates a LIBF entry by calling on itself. 



Preoperative input paramaters (for 


LIBF entry)t : 








Fxmction 


ARGl 


ARG2 


ARG3 


ARG4 


I/O Area Address 


Test 


/OOOO 


Not used 


Return to this 
word if busy 


Return to this 
word if not busy 


Not used 


Read 


/lOOO 


Address of the 
I/O Area 


Address of user 
error routine 


Return to this 
word after ini- 
tiating operation 


Word 1 = word 

count 
Word 2 = drive 

code and sector 

address 


Write W/O 
RBC 


/2000 


Address of the 
I/O Area 


Address of user 
error routine 


Return to this 
word after ini- 
tiating operation 


Word 1 = word 

count 
Word 2 = drive 

code and sector 

address 


Write With 
RBC 


/4000 


Address of the 
I/O Area 


Address of user 
error routine 


Return to this 
word after ini- 
tiatiag operation 


Word 1 = word 

count 
Word 2 = drive 

code and sector 

address 


Write 
Immediate 


/lOOO 


Address of the 
I/O Area 


Address of user 
error routine 


Return to this 
word after ini- 
tiating operation 


Word 1 = not used 
Word 2 = drive 

code and sector 

address 


Seek 


/500x 

X = seek option 

displacement 


Address of the 
I/O Area 


Address of user 
error routine 


Return to this 
word after ini- 
tiating operation 


Word 1 = not used 
Word 2 = drive 
code and sector 

address 



tApplies to simulated LIBF. 
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Postoperative conditions and entry points: 










Function 


at DN984+XR1 


Symbolic 
entry point 


Return 
address at 


Interrupt 
entry point 


Return 
address at 


Interrupt 
level 


Test 


/OOOO 


DNOOO (branch) 
DN020+2 (LIEF) 


DN120 


DN020 


DN020 


2 


Read 


/OOOl 


DNOOO (branch) 
DN020+2 (LIBF) 


DN120 


DN020 


DN020 


2 


Write W/0 
RBC 


/0002 


DNOOO (branch) 
DN020+2 (LIBF) 


Dm20 


DN020 


DN020 


2 


Write With 
RBC 


/0003 


DNOOO (branch) 
DN020+2 (LIBF) 


DN120 


DN020 


DN020 


2 


Write 
Immediate 


/0004 


DNOOO (branch) 
DN020+2 (LIBF) 


DN120 


DN020 


DN020 


2 


Seek W/O 
Seek Option 


/0005 


DNOOO (branch) 
DN020+2 (LIBF) 


DN120 


DN020 


DN020 


2 


Seek With 
Seek Option 


/0005 


DNOOO (branch) 
DN020+2 (LIBF) 


DN120 


DN020 


DN020 


2 



Register status: 





ACC 


EXT 


XRl 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 


DN902 


DN902+1 


DNHO+1 


DNllO+3 




DNIOO 


Used 


X 


X 


X 


X 




X 



Significant variables: 



Symbolic location 



Contents /Use 



DN230+1 If DISKN was entered by a monitor system program at DNOOO, this word is used by 

DISKN to simulate a LIBF link word. The contents of this word should reference 
the simulated LIBF at DN902. 

DN020+4 Contents of the LIBF link word if called by a user-written LIBF. 

DN902 and Simulated LIBF parameters for direct branch input: 

DN902+1 DOOlO = /llOO for read input 

= /2200 for write input 
DOOlO+1 = address I/O area 

DISKN is capable of executing 5 driven simultaneously. Reference to the proper disk drive work areas 
is accomplished by use of a table. XRl is used to point to the relative starting position for each specific 
drive in the table. The starting address in the table is computed as follows: 
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Significant variables (Continued): 


Symbolic location 


Contents/Usw 




The contents of location DNXXX+XRl where DNXXX is the first entry 
in the table and XRl contains twice the drive code. 




Example: Assume drive .1 is referenced. The address would be: 
DNXXX+(1 X 2) = DNXXX + 2 


DN952 and 
DN952+1 


First and second words of Seek lOCC if one is required; also used as temporary 
storage. 


DN050+1 


Drive determination: the drive currently being referenced may be determine(i by 
the contents of XRl corresponding to the relative starting address in the drive 
table, or by examining the contents of STOXl+1. This location contains twice the 
drive code. 


Index Register 2 


Drive code and I/O area address at various times during execution of this routine. 


DN978+XR1 


Current position (sector address) of the heads on the referenced drive. 


DN980+XR1 


Last two words of the I/O area just read into. 


DN982+XR1 


Address of the user's error routine. 


DN983+XR1 


Current seeking status of the drive; 

/FFFF = drive is seeking, has just seeked, or seek is required. 
/OOOO = seek not required, or not in process. 


DN970+XR1 


Originally requested user function. 


DN985+XR1 


Error counter for referenced drive for this operation: 

50 - C(DN985+XR1) = total errors occurred for this drive during requested 

function. 


DN986+XR1 and 
DN986+1+XR1 


lOCC for the current user-requested operation, except for Seek and Sense DSW. 


DN990+XR1 


Originally requested sector address. 


DN991+XR1 


Current sector address for current lOCC. 
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Significant variables: (Continued) 




Symbolic location 


Contents/Use 


DN992+XR1 


Remaining word count to be read or written. 




DN993+XR1 


Word count to be used in next I/O operation. 




DN994+XR1 


Current I/O area address. 




DN995+XR1 


Read -back -check counter; 






100 = C(DN995+XR1) = total errors occurred attempting to perform 


RBC. 


$DBSY 


Current status of each of the 5 possible drives; 1. e. , if drives and 2 
busy, bits and 2 of $DBSY are set to 1. 


are both 
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*»**D3 ********* 
♦PRANCH TO tHASH* 

* + 3, H^ ♦ 

* * 
*************** 



**** 
*002* 
♦ E3 * 



RA4B0 X 

****«C4********** 

* SFT WC £ s:tr * 

* ADDR OF PRTn * 
*INPT ROJT: TYPF* 
*- KEVeO TEND CD* 

* OR P/T * 
***************** 

t **** 

* * 
..X* B\ * 

* * 
**** 



***** 
♦002* 
* E4* 



RA400 X 

*****f4.««««****** 
SET HC E SCTP ♦ 
■ DOR OF » 



ADDI 



*****(: 3********** 

* BRANCH TO * 

* PREDPERATIVf * 

* ERROR TRAP C ». 

* OISP HEX fFFF * 

* # 
***************** 



**** . 

40 X 

*****G3 *********** 

* SHIP TO NEM ♦ 

PAGE t PRINT 

* PAGE NO, * 



******F4«* ********* 





************* 






* 






* 




.,X* Bl 


**** 


* 




**** 



******! 



****** 

**** 

* « 
.X« Tl * 

* * 
**** 



*««* . 

FAIOO X 

*****J3*********« 

* * 

* FETCH AppR^OF • 

* FRP HE5SAGF * 

* * 

* ♦ 
***************** 



*****H 4** ******** 

♦ SET HC t SCTR • 

♦ AODR LOAD I/O * 

♦ AREA ADOR t * 

♦ READ FUNCTION * 

♦ » 
***************** 



******J4*«* ******** 

* REAO IN ♦ 
REOUIRED PHASE 
* * 

************* 
BRANCH TO . 
NEXT PHASE . 



'■ 






'....JOR.. 


.002 


B3 


X 

PRINT ERR * 
MESSAGF 

* 






:...xEa.. 

:...nup. . 

:...As«. . 


.002 
.002 
.00? 


A3 
At 
A5 


X 

* 


* 


....FOR, . 


.002 


A5 




• Dl 


* 
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* * 
*FNTRV FROM MCRA* 

* * 



* ♦ 

* StT TFMPORftRY * 

*Maoe SWITCH if ♦ 

* ♦ IN C0LU1N *) * 

* » 
****** *4i*«4<***«** 



* CONVtPT HFXA * 

* DECIMAL * 
•rARTRinCF 10 t « 

♦sroRF IN inusT ♦ 

* * 



* upoArr DCOM * 

* « 



* OFFINE SCTft ♦ 

* ADHR OF ere ♦ 

* TRIVL rODE OF * 

* */K[NG STHil e * 

* UNl^GRMATTf D I/O* 



i|E#:1i*«Fl«*«iti«4r4c%i|I* 



*«i«*4*:*««>)l4>*t**«* 



«****{; I ♦****♦*♦** 



**t «««*»«* ««****« 



*«««**H1 *********** 

♦PRINT VFRSIDN t* 
MijnLEVtL t CORE 
* S17ES * 

************* 



***** J !***«****** 



******A 3 *****♦*•**♦ 



* FETCH in LIST * 
X FRGH DISK 



***.».-^i^2*** ******** 
w « 

* FFTCH ID LIST * 

* FROM CORE * 

* 5T0RAGf ♦ 

* ♦ 
***************** 



**«**«C ?**"<'*'•< *****"* 

* FETCH ID FROM ♦ 
EACH AVAILABLE 
♦ CARTRIDGE * 

************* 



**«*«D?* ********* 

* FFTCH ID FOR ♦ 

* MASTER ♦ 
•CARTRIDGE FROM * 

* ID LIST ♦ 

* « 
***************** 



.* CARTRIOGF *. 

.WITH THIS ID .* 

♦.AVAILABLE,* 



******F 2*** ******** 

• FETCH ncOH FROM* 

MASTER 

* CARTRIDGE * 

************* 



***************** 



*****H2 ********** 



***************** 



*««**«******* 



*«*t:**F :;*****«***** 



************* 



****G^** 
♦ EKir TO 



********* 
TO $EXIT * 

* IN SKELETOM * 

* SUPERVISOR ♦ 

*************** 



*****«A4*********** 



************* 



******g4*********** 

PRINT ID, LOG 

* DRlVe, PHYS * 

.X DRTVF FIR THIS 

* CARTRIDGE * 

««**«*««***** 



*****[; 4********** 



***************** 



D« *. 
* * 

equSl 

*. •* 
*• ■* 

* NO 



E* *• 
.♦ *. 

.* CARTRIDGE *. NO 
♦.WITH THIS ID ,*,,, 
*. AVAILABLE.* 



****«*F 4 ***»***«**« 

*PETCH DCOM FROM* 
THIS SATELLITE 
* CARTRIDGE * 

*****«*****«« 



COM TABLES 
***************** 



*****A5*********** 

♦PRINT REMAINING* 

IDS NOT 

* PROCESSED • 

************* 



******g9*********** 

♦ WRITE UPDATED * 
D;nsi T3 MASTF^ 
* CARTRIDGE ♦ 

************* 



****[- 5********* 

* t>FTUlN TO * 

* CALIING P.OUTINF* 

* * 
*************** 



******DS*********** 

* PRINT ERROR * 
.X HESSAGF 

* * 

*«**•»******* 



****F 5 ********* 

* EXIT TO tExiT • 

* IN SKELETON ♦ 

* SUPERVISOR ♦ 
*************** 



SU500 

*****F5********** 
♦FIND THE ID IN * 

♦ (KCIDN IN pCOM * 

♦ DN THIS • 

♦ PARTRIDGE * 
« * 
***************** 



****«!;5 ********** 
*Mave ALL ITEMS • 
♦ FRDM POSTTTON ♦ 
♦IN THIS DCOM TO* 



***************** 



***«H5********* 

* RETURN TO * 
♦CALLING »OUTINE* 

* « 
*************** 



***************** 



**t:**K ]«***«***♦* 



***************** 



************* 



*****«K2 ♦*♦**«♦**** 

♦ RESTORE PAGF t * 

PRINT J3B 

* RECORD ♦ 

************* 
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* « 

* A3 * 

* « 
♦ »** 



*tNlRV FRUM SUPV* 

* PHASE 2 * 

* ♦ 
*************** 



ANV 

PERMfNA-IT 

LET 



* 0? * 



*****A3+********* 



***************** 



**** 






* * . 






* CI * . X , 






* « . 






**** X 






JF'iOO ,♦. 






CI *. 






.* ♦ 






NO ,* ALL 


* 




.,.*, CARTRIDGtS 




* 


*.SFA'?CMED 


« 





*«*r«4nl'^** ******* 



************** 



.* ANY *, 

FOUAT 
♦, RfcCOROS .* 



ti*«*Fl********* 

* • 

* FXITTOMr.RA ♦ 

* * 
*«&****«******* 



.,* SUPV ♦ 
YhS .* PH5 ID 
, .,*, FOUND Ih 
*„ SLFT 



*** **H I ******* **• 



***************** 



**4*J1********* 

* * 

* EXIT rn HPCA • 

* * 
*************** 



♦SEARCH LET FOR » 

♦ END OF * 

♦ PERMANENT LET • 

♦ ♦ 
***************** 



, ♦ END OF 
, PFRMANFNT 
♦ , LET 



**** 

* ♦ 

* 02 *.X 



**** 
Jf(340 

***«*02***** 

4 

♦SFARCH LET 

* END OF 

* TEMPORARY 
* 
************ 



♦ ♦*♦♦ 

* 

FDR ♦ 

LtT * 

* 
***** 



ENn OF 
TEUP LET 
. FOUND 



•STARCH LET FOR ♦ 

♦ LAST DUMMY * 

• ENTRY * 

* * 

************ ***** 



*****Q -)********** 



•*•*****«*****«** 
• ««* I 



«««« . 

«****c ?«••••«••*« 

♦UPDATE SIZF OF ♦ 



***************** 



.* ALL •- 

, TEMP TTEHS . 
♦. DELETED .♦ 



****«M7********** 

* * 

* SAVE SIZE t)F WS* 
*BfFORE TEHP LET* 
« DELETED * 

* * 
***************** 

*♦♦* 

* * 

* J? ♦.X 



************ ** ** * 



**** 

« • 

♦ * 
**•* 



*****£)*«««***«*« 

* * 

• SET UP LAST ♦ 

♦DUMMY ENTRY SET* 

♦ JIA-NDU - #BNDU ♦ 

* • 
***************** 



4****F1 ****•**«*• 

♦ IF TEMP ITEMS ♦ 

• OELETED IN A • 

• SATEL CART * 
♦UPDATE iANOU OF* 

* SATELL • 
***************** 

\ «*** 

, * * 

..X* CI ♦ 

* « 

♦ *** 



*** «*K 1 ********** 



***************** 



*♦♦♦♦ 
♦00?* 

* B3* 
* * 



END OF 


*• 


NO 


s^rVM 


*' 


*>.<■ 


,* 






*. .♦ 






♦ YES 




* 

♦ C'l 


X 






«*** 




**»♦ 


* * 






♦ A3 * 






» * 






**** 
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«**«A!«**4t***«* 

* * 
♦FNTFR HROH MCOA* 

♦ * 
*4 *«*«****««*** 



♦ * 

RFAO IN DCUM 



CI *. 

.* *, 

L IN ♦ 

COLUMN I'V 



Ik**************** 



*****t ]*********« 

* * 
*SFT NCDRl) ro NO* 

* or SUPV r.NTRL * 

* PCOS ♦ 
« * 
«*«*«*******«*««* 



«***« PI *«*««***** 



*«*««n2 *«****«*** 

* $MPSH * 

* sct core map * 

* shitCh off * 



**«*«*«**« «**«««« 



**** 

* * 

♦ A3 ♦ 

# « 

***« 


" *•. 

N COLUMN 
> •* 



*****B3 •«*******« 
* SLOSW * 

♦SFT ZFRO LOCALS* 



** ******«***4*«i«* 



.* PUNCH 
♦. IN COLJMN 
♦. 28 



**«•««*********** 



«****F3********t<* 

• SFT FOLLOWING « 

* SWITCHES ZERO * 
♦IN DCOM ULCNT, * 

• HiNCNT, #FCNT, * 

* «GCNT, iDCSW ♦ 
«***«**i*««**««i«* 



«*«***F^«*««******* 

* WRITF DCOH TO * 
niSK 



*****B4****«*«*** 

* SLOSrf * 
♦SFT NON - ZERO * 
♦LOCALS CAN CALL* 

* LOCALS * 

* * 
***«*«*•*«******* 



***«***«*•*«•*«*« 



• 45 • 

* * 
**** 



.* HAINLINF 
NAHF 
*. GIVEN 



****[■<;******«** 

* EXIT TQ 

* I>l SKFL 

* SUPV • 
*4,*******4*««** 



****D5««*****«K 

* LDAO fluiLnrS * 

* * 
*************** 



**4 *«*#****«**** « 



****«G1 ********** 



*«**4«>(>********4* 



************* 



NAME 
. BLANK . 

*■ •* 



*****G4«****«*«*« 

* NINDU • 

♦SET NAME INDIC ♦ 

X* NON - 7ER0 » 



*******•««*«***** 



*• •* 

*• .* 

♦ NO 



«****J I ********** 

* * 
*LUOK UP COfiRFSP* 

♦ LOGICAL DRIVE * 

♦ COOE * 

* * 
************ ***** 



*****KI*«***«*«** 

* iOCDE * 

*SFT nsTve codf * 

* of MAINLINE ♦ 



****«**«***«**««* 



*****J2 **♦♦*♦**** 



«•««**«**««***«*« 



**««*H3 ********** 
♦SET' NINORt NAME* 

♦ INDIC. ZERO 6 ♦ 

* JDADR, SECTOR * 

♦ ADDR OF WS * 

* * 
***«*«««********• 



J3" ■*. 

.♦ NO OF *, 
.♦SUPV CNTRL 



«•** 

* * 

* A5 ♦ 

* * 
«*** 



*****H4^*** **♦♦«< 



****«**«*«******] 



*«***J4********** 



,X*TNFO FOR PHASE • 



*«*••********«*** 



«****KJi.****4,«*«** 

* * 
♦BRANCH TO FETCH* 
♦PHASE 5 t EXIT ♦ 

* TO IT * 

* * 
***************** 
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♦fNTEP HFOE FPOH* 
* PHASE 3 OR * 



LFOOO 

*«*«*Bt ********** 

♦ SFT SCRA fOR « 
♦LOCALS. NOCALSi* 

• FCUAT « 
« « 
***************** 

•006* 

♦ CI * 

* * 

X 

« * 

•SET TYPF ? NON * 

* 7 FRO IF EQUAT '• 

* ONLV • 

• ♦ 



I. H20 X 

*****tri^ *********** 

RROOO 009E1 



9************ 



*«»**E1* ********* 
« * 

* • 
•OFTFPMINF TVPE * 

* • 

* * 







• • 


**•* 






*•** 


• * 






- 


• A5 *... 

* * • 






X 


•••• X 




EQOOO 


■ *• 


EQ050 .*. 




ik^A + ^A*^ ********** 


A4 *. 


A5 *. 


*i'** 


* * 


,* NA«E ♦. 


.« *. 


* * 


• * 


NO .*FOLLOi<IED BY*. 


N3 .* NEXT (I, 


*AH *. 


..X* SFT MC TO ONE * 


.,,*. RI5HT .* 


*. rOLUHN .* 


• ♦ 


* * 


*, PARCN ,♦ 


*. BLANK ,*< 


•«•«* 


• * 


*• •* 


«, .• 






X *. .* 


*. .* 






*••* * YES 


* YFS 






* * . **** 


**** 






* Jl * . « • 


* * . 






• * ..X* *5 • 


* 85 *.X. 






••*♦ * * 


* * • 






«•** 


•♦•• , 




X 


.*. 


X 




t**t*Pi-i********** 


n^ *. 


*4[**4Q5+**4.i4i**<i** 


**** 


* • 


.* *. 


•FHOOO * 


* * 


•POINT TO COLUMN* 


NO .* CHARACTER *. 






* »1 «. 


..y* 7 * 


*. NOT A .*X.. 


• * 


* « 


• * 


«. CQHHA .* 


* REAn A RECOtrt * 


•<!*• 


• • 


• • .* 


* « 




*•****••*«••«•«** 


*. ,* 





* * 

• 85 • 



• .11 (X. ...*. 

^ * 



* * 

• * 



» IS 

CHARACTER 
•. BLANK 



.« IS 
•CHARCTER 

LEFt 
«. RAREN 



MORE •• 
THAN TEN 
. PAIRS .• 
*. -• 



* ♦♦**C5*******<'** 

* * 

* * 
•DETERMINE TVPE « 

* ♦ 

* * 

X 

* * 

* • 



.»IS THl5». 

,*RCn OF S&HE*. 

TYPF AS 

•.PREVIOUS •• 

• • .• 

*. .* 

.YES 



.LOCALS 

.NDCALS 

.FILES 

.G275D 

.tOUAT 



006A3 
006A3 
006AI 
006A3 
005A3 



••*••*«•*«*«« 



G? •. 
.* HAS «. 

Yfs .•THIS Record*. 

...... BEEN PR3C .• 

•. BEFORE .• 

• . . • 

*. .• 

• NO 



« SET INDICS C • 
•INITIALIZE FOR • 

• A Nt« RECORD • 

* * 
••**«**•**•••**«« 





■ x 




....LOCALS 


006*3 


X 

* PRINT ERROR * 
..X MESSAGE X... 

* * • 

; ************* ' 

• , «i*ii 




....NDCALS 
....FILES 
....G27SD 
....EgUAT 


n06ll3 
OOUll 
006A3 
00M3 


* ♦ 

♦ 006* 

• Jl* 




* 
« 
* 







*««**F3****«*«*** 

*-NOO0 * 

•~ fetch'first '* 

• nahe of pair • 

* * 
*****•••»•••••••« 



•«*«*G3**«*««**4* 
*F800i5 009AI* 

* STORE NAHE * 
« * 

«»***#****«*4r**** 



•• NAME *. 

*. FOLLOWED BY . 

*. COMHA ,* 



* CLEAR BF<) FOR « 

* TYPFS NOT • 

* SPECIFIED * 

* * 

***«•««••••*•*«*• 



* CLEAR DISK * 



«**«««H4*«*«******* 

* • 

WRITE DC OH 

* * 

*««*«*****«** 



***************** 



• STORE NAHE * 

* « 
*••*««*«•«•««*«•• 



.♦IS NAME*. 
. BLANK . 



*****J5«**«***1:** 



«***4**«***«**i|^** 



****K4********* 
*BRANCH TO EXIT * 

• TO CIL • 

* * 



•Flowchart SUP06, Supervisor, Control Record Analyzer 



198 



LFOOO 

* * 

* SET mCAUi * 

* NUCAL, FILES ♦ 
♦INDICATQKS OFF ♦ 

* * 



• *** , 
♦00 7* 

* CI *.X. 



* * 

* r* * 
« * 



****««C4*««<t>******* 



LOCAL 


** NO 


.* NOCAL * 


NO 




* 


FILES *. NO 


♦ 


PRINT ERROR * 


n ECOROS 


m 


,X», RECORD 


*••••••• 


.X* 


'* 


RECORD ••••• 


•••••X 


HESSAGE 




.* 


X * 


*. .« 




*• •* 








*• .* 






*. ,* 




*. .♦ 








*. .* 




*********m*** 


* VES 




* YES 








• VES 


« « 

♦ C4 * 




: 




• 








- 


* * 


X 
***** 


X 




X 








X 




*0Q2* 


• *• 




• *• 








.*. 




• 01* 


01 *. 




02 ♦- 








D3 •. 




• • 


« * 




• * *. 








* *. 




* 


LAST 


*. vts 


.* LAST »* 
*- RECORD A 
*. NOCAL .* 


YES 


• * 


LAST ♦, VES 






PFCURf) A 




*■>•> 


* 


* 


RFCORD A 1*... 






LOCAL 


FILES .* 


•"x 




*. •* 




*• •* 








*. .♦ 


•**•* 




♦• •♦« 


X 


*, .♦ 


X 






*• .* 


•ooa* 




* NO 


*no8* 


* ND 


***** 
*008* 






* NO 


* Al* 






* A3* 

« * 




* A 5* 

* « 








* 






* 




* 













WROCO 009E4 

«r7te bufffr to 
«scra, sectors* 



WROOO 009E4 

HRTTFiuFFER'TO 
•SCRA, SECTORS* 

**••****♦***♦ 



MRITE BUFFER TO 
*SCRA SECTORS * 

•*«••*«****** 



LOCAL 

INDICATOR 

UN 



*****G1********** 





F2 *. 






F3 *. 




.* *, 






.* *. 


s 


.♦ NOCAL * 


VES 


.* FILES *. 




». INDICAT3R 


* 




*. INDICATOR •* 




♦. ON .* 






♦. ON .• 




*. .« 






*. •* 


X 


*. .« 




X 


*• •* 


**** 


♦ NO 




**** 


« NO 


* 






* * 




CA ♦ 






• Ci ♦ 




* 






• * 




**** 


X 




**♦♦ 


X 




*»*m^C,2 ********** 




****mCi^m********* 




* 


« 




* * 




: IN^fc%®*iN 


• 
* 




** .Ngfj»fAi^§N : 



* ♦ 
.X* c« * 

• « 
**** 



***««»*«««***«*«* 



****«*««««I*«****« 



mtLtt************* 



♦OOfl* 
* A"** 



***** 
*008* 
* A^* 



♦008* 
* Al* 
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*nna* 



« * 

* A2 * 



♦008* 
* A3* 



«*«*«41 ********** 



***************** 



****** A?*********** 

PROOO 009EI 

RFAO AND PsTnT 

* A RECORD * 

*««••«*«**«** 



****«A?********** 



**«*•***•«««*•*•• 



*****B1 ********** 
« « 

♦POINT TO COLUMN* 



«****«*****«**«** 
**** 



***♦ 

X 

*«***Ci ********** 

* * 

* FETCH AND .* 

* CONVERT FILE * 
« NUMflCft * 

* * 
***************** 



«**««i;) I ******«*«« 

*F«nnn no9«i* 

•STORE NUMBER TO* 
♦DISK I/O RUFFFR* 
* « 

***************** 



NEXT 
COLUMN A 
. COMMA 



♦FFTCH FILE NAME* 
*ANU CONVERT TO * 
* NAME CODE ♦ 
***************** 



***************** 



.* NFXT * 
COLUMN A 
PIGHT 
. PAREN 



**Kt *« J 1 ********** 

* ♦ 

* SET TARTRIDRE * 

* ID bLANK « 



RECORD 
SAME TVPF 
. AS LAST . 



***** 



**««*B^**« ******* 



********••«*««*•* 



C^ *. 

,* *. 

• COLUHN 
7 A COMMA 



*****(; 4«*«******* 



***************** 



♦ FETCH AND • 

♦ CONVERT * 

♦ MATNLINF NAME • 
***************** 



**«**E2********** 

* * 

* SET FILE NAME • 
X* BLANK * 

• « 

• * 
***************** 



*5TQRE FILE NAME* 

* TO I/O BUFFER * 

* * 

***************** 



■ X. 



. X* 



***«*H?*«***«*«* 
* 

FETCH AND 

CONVERT 

CARTRIDGE 10 

********«*•*«*•* 



.X* STORF NAME TO * 
♦ I/O BUFFER ♦ 



***************** 



***« 

« 

* G3 
* 
**•* 



***** 
*006* 

* CI* 



FOLLOWING 
COLUHN A 

. BLANK . 



***•***«**«** 



H« * 
TYPE 



«***«J4******«*** 
•POINT TO COLUHN* 



***** 
•006* 



****«**«*«*#*** 



***************** 

I •••* 
■ • * 

.,X* G3 • 
* * 
• *•* 



•STORE CARTRinCF*. 
« ID TO I/O ♦ 

* nurrFft * 

*«*«**•«***«**«** 



*« 






.* *. 






NEXT * 


NU 




• FOLLOHtNG 


• 


NO 






...X* 


COLUMN 




*• •■■ 


BLANK •* 






•. BLANK . 


* 




. •* 












*• •* 






*■ ■* 




X 


♦ VFS 






♦ VES 




**•* 












* CI 












* 


***• 
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.• tllSK 

•. I/O BUFFER 
•• FULL 
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INDICATORS 
* START READ • 

***************** 



•***^ 

•002* 

* H4* 

• • 



***** 

*002* 

♦ J4* 

* ♦ 
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***** 
*005* 
* Rl* 



***** 

*005* 
* B^* 

* * 



+ **<(r«««<|t 4(4' «****«* 



.* TIME * 

OUT EXIT, 

INIT, NO 

ENO 



***QS************ 

* STAAT PROG * 
«X TlHCft INSERT 
* 04.6 SYN ♦ 

..X* E2 * 
* * 

**** 



*****cz********** 

* * 

* ERR /0020 * 
,X*ACCEPT CLOSE OR* 

♦ RETRY * 

♦ ♦ 
***************** 



*****C'**** ******* 



***************** 



*****0]*** ******* 
« ♦' 

♦ FRftOB /7000 * 

♦ ACCEPT CLOSE OR* 

♦ RETRY * 

♦ * 
***************** 



***** 
♦00 2* 

* H«* 



*:**Q3************ 



*****Dit********** 



,♦ use OF *- YES 


* 


START PROGRAM * 


* 


ERROR C200 ♦ 


*• PROGRAM .*..... 


..X 


TIMER 

* 


♦ACCEPT CLOSE OR* 
♦ RETRY ♦ 


*. '^TIMER -* 


* 


*. •* 






* 


* 


*. .* 


***************** 


***************** 


* HO 










**** 










♦ * . 










♦ E2 ♦.X. 








X 


* * .X*«. ....«.•■• 








♦**♦♦ 


*♦*• 






*oa2* 










* H4* 


X 








* ♦ 


*9**^?_********* 








* 


* « 










* EXIT * 










* * 










*m******m****** 











***** 
«005* 
* Gl« 



•♦♦•♦62********** 



.• X« CLEAR ftTBSV * 



***************** 



***** 

* r,2* 



***** 

»002« 
• H4« 
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• ****4r-h**t ******* 



**«4*cf2****4' ■•>**** 



*tl*]|E*«**««.^«***** 



♦♦♦* 
* * 

« * 
**♦♦ 



♦ CPLHG OOIA'V* 

« LCG C*LL * 

♦ PARAMETfR * 

♦ « 
■«****itp ********** 



*««%«(; 7****»««*** 



***************** 

. **** 
. * * 
..X* K3 * 
* * 
**** 



.* X*. FUNCTIONS ,+ . 



♦ END SCA * 
. X OPeRAftON 
* * 

**************** t 



.TEST 
^YFS . 



».**f2************ 



*****f:^****^***t^ 



*****rTi ********** 

* SFT FUNCTION * 
♦(FCODE) TO - IF* 
*1CV, IF MNTR * 

* + IF XMIT * 

* « 
***************** 



***»l************ 



***************** 



***************** 

I **** 

* n 
,,X* Kl * 

♦ * 



***********4***4* 

! **** 

* * 



***** ^\******m*** 

* * 
♦SAVE PARAH SET ♦ 

* RCV XMIT OR ♦. 

* MNTR INDRS ♦ 

* * 
***************** 



***j?************ 



****** ****tt*****i^ 



*****:J-^****i>;***** 

* * 

* * 

.X*SET INDICATORS * 

* « 

* * 

***********:****** 

**** I 

* * . 

« K3 *.X. 

* * . 

XIT 

X 
****t^'it****9**** 

* * 

* EXIT * 

* * 
**********a**** 
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4* 1ft A 1 1**********!^ 



**:^*****l^tl**#**** 



***** 

♦ 007* 

♦ S5* 



64 *. 
* *. 
TIME *. N 
OUT .*. 
,« 
*. •* 
*. .* 
• YfS 



****B3********* 

• * 

♦ EXIT * 

« * 



«***«C1 ********** 

* * 

* ERROR /6000 » 
*RFSFT t CONT OR* 

* MONITOR ♦ 

* ♦ 



* R5 ♦ 

* * 
**** 



♦CCUNT READ CHK * 
•ERR IF OSW BIT * 

* 2 CN * 

* * 
mil **%**** ******** 



***02************ 



^t*************** 



«*«**F2********«« 
♦lOLCG 001B4* 

* « 

* LOG CHARACTER * 

* * 



F2 *, 

,* «. 

RCV .* FUNCTION *. MNTR 

*. CODE .* 

X ♦. (FCOOE) <* X 

***** *. .* •**♦« 

♦006* *. .* *009+ 

* Al* ♦ XHIT * E3* 

* * . • ♦ 



♦*♦♦♦ 

♦ooa* 

♦ A3* 

* * 



***«*C3 ********** 

* * 

* COUNT WRITE * 

* CHECK ERR IF * 

* DSW BIT 2 ON ♦ 

* * 
**«««*•**«*««***« 



* LOG TIME OUT * 

* * 



XMIT .* * 


R 


V 












«. CODE .* 






X 








***** 


X *- ■* 






♦008* 








♦ FA* 


*O09* 






* * 


* Al* 






* 



***** 
*009* 
* A*** 



E« *. 

.* *, 

•* FUNCTION ». 

CODE 

*. (FCODE) .* 



*. 



• * 



***** 
*009* 
• G5* 



♦*«* 

* » 

* HI ♦ 



*«*******«***•**« 



«**«*G4********** 

* * 

* ERR /200O • 

* HGNITCR GR * 

* RETRY * 

* * 
m******* ********* 



****4H2********** 



•««***«*«**«**«** 



*** J 1 ************ 

* STAUT PROG ♦ 

TIMER INSERT 
* OLW SYN * 

***************** 



*****J?**«* *«««•* 

* * 
» ERR /0200 ♦ 
♦ACCEPT MONITOR * 

* OR RETRY • 

* * 
*««**««*««******* 



* "iS * 

* « 
**** 
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*♦♦** 
* Al* 



*00B* 
♦ A?* 



***A 2**** *•♦♦♦♦+♦ 
START SNYC 






***** 

*007* 
* B5* 



**««*A 9 ********** 

* * 

* * 
. X* CLEAR RT6SY • 

« * 

« * 

***************** 



*««4.ftr}i ****** 

* 

* iTO^f OAT 4 
« I/O ftRFS, 

FNr IN 



* 
IN * 



*1 NCP 

* 
***** 



**** 

t 
*«*«4<R 7* ********* 

* * 

* USER COUNT IS * 
X* ZERO START ♦.. 

* MONITORING * 

* * 
***************** 



♦ *•*♦ 

*009* 

J^* 



BCVTM 

*****C2********** 

* FHROR /2000 * 

* roUNT ERROR * 

. ,.X* MONITDn OR *, 

* RETRY * 

* * 
***************** 



**«B4** ********** 

♦ ♦ 

START SYNC 

* * 

***************** 



**«**B5****«**««* 



***************** 



***** 

♦ 007* 

* B5* 

* * 



***** 

♦ GOT* 

6 5* 



************ 



****«Q3*****7»:**** 

* * 

* ERROR /0?00 ♦ 
♦ACCEPT HONITOR * 

* OR RETRY ♦ 

* * 
******«*«****««** 



***************** 



***** 

♦ 007* 

* B5* 



*****f\ ********** 



***** 
*007* 
• 85* 



***it ************* 



***** 

*ooa* 

* F^* 



***F9«******«**** 



***** 

*007* 

♦ 85* 

* * 



***************** 



OVERFLOW 



*****Q7********** 

* * 

* ERROR /lOOO ♦ 
.)f*ArrEPT MONITOR *.. 

* OR RETRY * 

* * 
***************** 



***** 
*(107* 
* 05* 



*«*G5 **«•**«*«*«* 



««**«*****««««*«« 



.* tiCC *- 
,*RCVC » eCC *. YES 
•■, ACCUMULATFn ,♦,.., 



*****H2********** 

* flLTERNATF ACKS * 

* LSER COUNT - * 
,X* LFNGTH, RreSV * 

* OFF * 

* * 
***************** 



***H4**«*** ****** 



***************** 



* tOG CHARACTER * 

* * 
****••*•««*«*«*«* 



***«* jl *«««*«**** 

* ERROR /OROO * 

* COUNT F.RRQR * 
♦ACCEPT MONITOR * 

* OH RETRY * 

* * 

****:*«***«***«*«* 



**«JS*****«**«*«* 

* INITIALIZE * 

INDICATORS. 
* START READ ♦ 

***************** 



***** 
*n07* 
* 85* 



• •**« 

• 007* 

• B5* 
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*«♦*♦ 
*ooq* 

* Al* 



*♦♦♦* 

«009» 
* A4>t> 



iti!C*A7***'******«** 



«*****4i4c« **««««*« 



* NO *«<** 

■ * * 

* 14 * 

* * 



* * 

* J3 • 

* ♦ 



.* XHIT - 
*. NAK 

*. 
*. 
*. 



* rES 
« • • 

X 

« WRITE NAK. * 

PAD START 

* REAC * 



* WRITE EOT. * 
PAD START 

♦ READ ♦ 



* WRITE ENO, * 

.X PAD START 

* REAO * 



* * 

* Gl ♦ 

* * 



* LOG CHARACTER * 

♦ * 

..X* K3 * 

* ♦ 



«i*«D3*** «■*****•** 



• •* 

♦ . ,* 
* YES 



HA* El *«****4<*4<i»*« 



$H,t*i* ************ 



*****P1 ********** 

* * 
♦UPDATE POINTERS* 

* COUNTS * 

* INniCATOOS * 

* * 

* * 

* Gl ♦.X 

« * 
**** 



* TRANS *, NO 


* WRITE BCC. 
< ■ a^X PAD START 


* 




END THARS •*-••• 


* 




♦, NEEDED .* 


* ftEAO 




*, .* 








*. ,* 


««*«4i«««««**«««** 


X 




* YES 




♦•♦♦ 






*»♦♦ 


* * 






♦ 00^* 


♦ Gl * 






♦ E3 *... 


* « 






• * . 


**** 






**** X 






X 


MONRO .*. 




.*. 


M**^2************ 


E3 *. 




E4 ♦ 




• * *. 




,* 


WRITE DLE * 


,* CONTROL *- 


YES 


.* SOH OR 


ETR, PAD OR 


*. HODE 


*.••.••• 


X*. SIX 


OLE ETX.PAO • 


*. .* 




*. 




*. .* 




*. 




** ,* 




». .♦ 




* NO 




* N 


•♦♦* 








* * 








..X* Gl * 








* * 


!x...... 







* ♦ 

* K3 * 

* « 
**** 



YES 



NO ,* POLL CR *. 
.,.♦. SELECT RCVD . 



***G4«** ********* 



*****E5***«****** 

« * 

* * 
-X*CONTR. HODE OFF* 

* * 

* * 
***************** 

z **«* 
- * • 

..X* K3 * 
* • 



***** 

*0Q9* 

• G5* 

* • 



* LOG CHARACTER ♦ 

* * 
**#************** 



«****H3********** 

* » 

♦CONTROL MODE ON* 

* * 

* * 

******-****m^***m* 



**** 

•0(59* 

* J3 *.X 



***************** 

I ***• 
« * 

,.X* K3 * 
« * 

**** 



♦CONTROL MODE OF* 

* * 

* ♦ 
***************** 



*«*«*H5****«**«** 



*«***«**++•****** 



**** 
RESYN X 

***j'i************ 



***************** 

**** 



««««K3«******** 



*************** 
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t-:M^Y 



■•A?..... 

FNTRV 



• CLFAR I/O • 
•BUFFER IF KRITt* 

• OPERATION • 



RESET READ 

INDICATOR AND 

BUFFER FULL 

INOICATUR 



• SAVE. ADDRESS 0F« 
•LIOF CALLS FOH • 

• SUBSEObe'vIT • 

• FNTRICS • 



.• SFID •. 
• EVER *. NID 
INITIALIZED .",... 



bAVE TRACE 
DLViCE AND 

pRtci sin^ 



• • « * D3 ••••••••• 

• EXIT TO JEXlT 

• IN SKELETON 

• SUPEFIVISDR 



SAVE FORMAT 
STMT LOC AND 
GET DEVICE 

NUMBER 



•SET FOOl SWITCH* 



• SET EXIT * 

• ADDRESS TO • 
•CONTINUE AFTER • 

• I/O " 



• •«GI ••«■•••••• 



NU .• VALID • 
..,•• FOR READ OR 
•. WRITE .• 



•EXIT TO CALLER • 



• SET UP SUFFER 

• SIZE AND ZERO 

• COUNT 



SET COUNT OF • 
CHARACTERS TO ■ 
READ OR WRITE • 



FOOl •. YES 
ERROR SM 

SET .* 



.X^SET FAC TO ZERO" 



• CLEAR I/Q 
•BUFFER IF READ 

• UPERATIGN 
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ENTRY 
SUBSCRIPTED 
VARIABLE 



SET UP 

DISPLACEMENT 

FROM BASE 

ODRESSi SET 

RAY SliE TO 1 



• ARR 



»»»*A2«»»«»»*» 

NON 

SUBSCRIPTION 

VARIABLE 



• SET UP • 
•DISPLACEMENT Of» 

• ZERO, ARRAY • 

• SIZE IS I • 



• A3«">> 

ARRAY 



»«»«ttB3***<>**«*** 



■STORE ADDRESS, 
• ARRAY SIZE, 
■ EXIT ADDRESS 



>>>D2><*»>« 

SET UP 

NON-DIGIT 

COUNT, 1-2, 

F»3, E"T 



REDO 

INDICATOR 

SET 



CLEAR WORK AREA* 



■ E 003 A4 

,F 003 A4 

.1 003 A3 

.A 003 Bl 

.X 002 AA 

.H 003 Al 

.T 002 A5 

.SLSH..002 04 
.G.R...002 » 
.F.R...002 04 
.REDO. .002 H4 



• INCREMENT • 

• BUFFER PT BY • 
•COUNT SPECIFIED* 



• «»!> 

• 002« 

• C4 •. 



•••*»«•# 



ALL 

REPEATS 

DONE 



• El •002« 



GET HORD FROM 

FORMAT 

STATEMENT 



STORE TOTAL 

FIELD WIDTH 

(WW) 



• ••• 
•002* 

* H4 ••■• 



.•FORMAT •. •••• 

• TYPE •. NO • 
E,F,I,A, OR X^ 03 



• ••••^{^•••••» 



•• ARRAY ». 


1 





*, COUNT IS . 






«. •* 












*■ ■* 




X 


• YES 




■ ••« 
• D2 














a 


» 




•RETURN TO H.L. 


• 




» 


• 








K2 ». 

BUFFER '•. YES 
OVEFtFLOM 

•• • * 

• NO 

X 


• SET UP ERROR " 

..X» F002 » 


• OOl. 



.X«RtTURN TO H.L. • 
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•iEf DATA PT AS 
■ .NEXT FORWAT 
• LOCATION 



• SET UP CHARS 
»PER WHRO FROM A 

• TYPE 

• SPECIFICATION 



• ''OVE DATA FRUM 
-X»STORAGt TO I/C 

• BUFFER 



•MOVE DATA FROM 

* 1/0 SUFFER TO 

• STORAGE 



• SET UP ERROR 

• f-009 










X 


































* C3 «... 
























SF360 




SF^30 


C3 •. 






• * *• 




• • 


.• READ • 


NU 


•CONVERT NUMBtR • 








JTPUT • 




* • ■ 




• . .» 




• ■ 











INPUT AND 

CONVERT Wh 

CHARS FROM 

BUFFER 



DATA 
EXCEED 

SPECS. 



PACK BUFFER 

FIfcLD hlTH 

ASTERISKS 



..X» K3 • 

SCOMP 

B«««F4*«**««K<)* 

•WRITE COMPLETE • 



■DECREMENT LIST h 
•ADDRESS BY DATAh 

• TYPE, LOhER < 

• ARRAY COUNT I < 



.• LAST •. 
.• FORMAT •. NO 

.SPECIFICATION 

*. SLASH •• 



•RETURN TO M.L. • 
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•fcNTRY VIA LIBF 
* CARDZ 



SET PREVIOUS 

OPERATION 

liMOICATQR TO 

CURRENT 

OPERATION 



•WAIT AT LDC /8E« 
•WITH A DISPLAY • 
• OP /lOOO • 



• INITIALIZE 

• READ/WRITE 

• lOCCf CLEAR 
•LAST INDICATOR 



• CZ *.X, 
C2260 



CONVERT EHC 
CARDS TO 
HOLERITH 



PREVIOUS 
OPERATION 

. WRITE . 



•C2*«» 

SENSE DEVICE 



D2 •. 

REAOV 



■hAIT AT LOC 12A» 
•hITH DISPLAY OF»X. 
• /lOOO * 



.X SENSE DEVICE 



FEED LAST CARD 



OPERATION 
COMPLETE 
.INTERRUPT. 



D3 •- 

ERROR 



_ K^5 


« 


YES 




SET $LAST 






» 


» NO 




• 


'"//BLANK *• 
TEST SWITCH 
*« SET ^.* 


YES 


CZ330 


CLEAR //BLANK * 









FIRST 

Et CHAR 
/BLANK . 



.• PREVIOUS ■. YES 
. OPERATION ...... 

•. READ .• 



..X» C2 • 



• CALL tEXiT 



• *K4» 
RETURN TO 
CALLER 
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CDIUHN • 
INTERRUPT ILSOO< 



• DP-C0HPL6TI: • 
•INTERRUPT ILSO^* 



.• //BLANK • 
•- TEST SWITCH 
•. SET .• 



• SET TO READ 

• FIRST THREE 

• CARD COLUMNS 

• INTO SPECIAL 

• BUFFER 



•RETURN TO ILS04> 



••••FI*^«^«»**^ 
•RETURN TO ILSOO* 
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"ENTRY VIA LIBF 
• PRNrz 



SfcNSE DEVICE 



"» 


FORMS 
CHECK 

■ •* 
*• • * 

• rES 


*• 


NO 





X 


»*» 




"wtlJ 


SlslifSv 

/6000 


'M 











EJECT 

PAGE 

REQUEST 



.• SUPPRESS *. YES 
SPACE ...... 

•. REOUEST .• 



• A4 •.. 

AZ300 



SINGLE SPACE 



START PRINTER 



START CARRIAGE 



DOUBLE •. NO 

SPACE .»... 
REOUEST .• 



IDLE 
SCANS 
.COMPLETE 



•EXIT TO CALLER • 



»»ft*C4****«**i>* 
•INTERRUPT FROM 
• ILSOl 



• SENSE DEVICE 
WITH RESET AND 
• SAVE OSW • 





• F3 «... 




• • ■ 




• ••• X 




AZl-iS .». 


F2 •. 


F3 ». 






• CHARAC ER •- YES 


.» DECR 


COUN 


•. SPACE CTR, 


•. .GT. 


•. CTR=0 



.X. 



• •••G2^^>»<>> 

SENSE DEVICE 



CHANNEL 

12 SfclTCH 

SET 



SPACE PRINTER 



AZ130 X 

••••*G4^»^**^**" 

• OR CHANNEL L2 

• BIT INTO 

, ..X^ CHANNEL 12 

• SUITCH 



• ••• 
• A4 



••••K2«*««>*^«* 

• EXIT TO CALLER • 



STOP CARRIAGE 



•••••K3********** 

• SET INTERRUPT • 

• SWITCH TO •- 
•CHANNEL 1 FOUNDS 



Alios 

X 
••••K 4* •••••••• 

...X^RETURN TO ILS01»X. 



• SCAN 
COUNT .CT. 

• . 



••••D5^<«<^^>> 

READ EMITTER 



•****E5 ********** 
•SCAN BUFFER FDR* 

• EMITTED CHAR, • 

• SET BITS IN • 

• PRINT SCAN • 

• aUFFtR • 



•••«FS*^*^*^*^^ 
^RETURN TO ILSOl' 



STOP PRINTER 



• SET INTERRUPT 
•SWITCH TO lOLE 
•SCANS COMPLETE 
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♦ENTRY VIA LIBF 



.X START READER 



* A4 •, 
0Z400 



SET UP FOR 
UPPER CASE 

CONVERSION 



INTbRRUPT 

SWITCH 

SET 



• SET UP FOR 

• LOWER CASE 

• CONVERSION 



•SET CHAR COUNT 

• TO MflXI^^UM FOR 

READ 



»»»«*C2*>«*<>«ii 



• ACCORDING T(l 
*CASE, STORE (N 

• BUFFER 



RETURN TO 
CALLER 



■INCREMENT CHAR • 
•COUNT 8V I FOR • 

• NL Char • 



• INCREMENT • 

• BUFFER ADR- • 
•DECREMENT CHAR • 
» COUNT • 



•SET NL NO EXIT • 

• IJUTPUT CASE • 

• SHIFT • 



READ CHARACTER 



.X SENSE DEVICE X. 



■*«»G3*«*»a«N*B« 



YtS .• CASE •, 

CHANGE 

".REQUIRED .• 



•WAIT AT LOC /2A« 
.-hlTH DISPLAY 0F» 
• /3000 • 



SET TO OUTPUT 

PROPER CASE 

CHAR 



• CLEAR CASE 

• SWITCH LOAD 

• CHARACTER 



• CALL $EXIT 



* K2 •.X. 

• ••• X 

BZ300 .• 



..X» K<t • 



• ■•■KB*-**** 
• RETURN 



PUNCH CHARACTER 
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■ •■• A 1 ••■•••■•• • 

•ENTRY VIA L I6F 
• REAOZ 



"INTERRUPT FROM 
• ILSO'. 



SbNSe DEVECF 



♦WAIT AT LOG /ZA» 
.X*WITH DISPLAY OF" 



• SET UP lOCC. 

• PLACE WORD 
■COUNT IN FRONT 
« nf- I/O BUFFER 



*tt*>Di:h» ******** 

SET ILSO-V 

INTERRUP EXIT 

TO RETURN TO 

R2100 



READ CARD 



•rtAIT AT LOG /8E* 
•WITH DISPLAY OF* 
* /4000 • 



INTERRUPT 

SWITCH 

SET 



*RETURN TO ILS04* 



//BLANK • 
CONTROL 

.READ CARD.* 



GALL $EXIT 



CONVERT 

HOLLERITH 
BUFFER TO EBC 
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•bNTRY VIA LIBF 

• WRTVZ 



• CUNVERT EliC • 

• CHAR TO • 
•ryPEMRIIER CODE* 



•INTEKRUPT FRQH 
• ILS01 



CHtCK 

TYPEWRITER 

READY 



SENSE DEVICE 



■•STURE CHARACTER* 

• COUNT- LOAD " 
♦CARRIER RETURN • 

• CHAR • 



INTERRUPT 

SWITCH 

SET 



•RETURN TO ILSO^« 



RETURN 



CHECK 

TYPEWRITER 

READY 



• ALL 

CHARACTERS 
•. OUTPUT . 
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ENTRY VIA LIBF • 
PRNZ • 


WZ?20 ,•. 
..X*l[ CARRIAGE ^', 


YES 
*** • 


villOO 

»INTERRUPT*fROM* 
IISOA 




_ 




•••• • NO 




. 



.StNSE DSW 



SPACE PRINTER 



•WAIT 4T LCC /2i> 
♦WITH niSPLAY OF»X 
• /JCOO • 



SUPPRESS 
SPACE 
. HEOUEST 



NO .» CHARACTER *. 

...». COUNT .GT. , 

• . 1 .» 



•CONVERT SUFFER 
•FROM EBCDIC TO 
• 1403 PTR CODE 



PRINT LINE 



SKIP TO CHNL I 



C2 *. 




G3 *. 


••CHANNEL*. 






12 




•• SHITCH .» 


ENCnUNTEREO . 




• ■ * 




*■ •* 




•.CLEAR.* 








• NO 




* YES 

• ■•• • 

» H3 '.xl 


X 




• ■*« . 








H2 •. 




X 


■ * *• 




«tt«*H3*'**'**'** 


DOUB .E •. 


NO 


: ^atf^R'" 


SPA ;e 


*■• • ■ 


. REQUEST ,• 


• 


*»•«•««»■»••«•»• 



•»»»«C 5* ■-***••*** 



MPt-ETE SWITCH* 



UlllO 


■ •• 
04 •. 


vts^.- 


SET 



. •. ENCOUNTERED 



• RETURN TO ILSCt" 



^Z210 
YES .• 



SPACE PRINTER 
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INTERRUPT FROM » 
ILSOO • 



•ENTRY VIA LIBF 

• PNCH2 



X 


PZIOO X 








•HQieZ 013A1* 


SENSE DSh hITH • 




RESET 


•CONVERT SUFFER • 


» • 


•E8C0IC TO HOLL • 







PUNCH A COLUMN 



INCREMENT TO 

NEXT BUFFER 
LOCATION 



• SET ROUTINE 
*BUSY IND CLEAR 

• LAST CARD 

• ShITCH 



•RETURN TO ILSOO* 



••••E2»«*»*»» 
SENSE DSM 



fEtO LAST CARD X. 



•RETURN TU ILSO^« 



• •«••• J2'»*>*M 



.YES .• ROUTINE 

•- BUSY INO 

• . SET 
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.X SELECT KEYBOARD 



•INTERRUPT FROH 
• ILS04 



INITIALIZE 
COUNT SUFFER 
SETUP RESTART 



•CONVERT ONE EBC* 

* TO TYPEWRITER • 

• CODE • 



KZ210 X 

•••■*D1«««»«»»« 

• SET BUFFER 

• ADOfWD CNT. 

• ENTER CAR. 

• RETURN 



TYPE ONE 
CHARACTER OR 
• CONTROL 



KZ300 
NO .• 



•SENSE INTERRUPT* 
HITH RESET SAVE 
• DSU • 



•RETURN TO ILSO** 



••••E2****** 



K2500 

••••»E3*»^»^^*»»» 

• KZ600 _ 012E'i» 

• TEST 1/ DEVICE ' 



TEST READY 



• •F'lox^*^ 

SENSE DSU 



*HOLEZ OllAl* 


NO 


.•' END OF 


. CHARACTERS IN I " 
* BUFFER TO EBC » 




••CHARACTER 



RETURN 



••K3^«*««»^ 

RETURN TO 
CALLER 
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•tNTRY VIA LI8F 

• HOLEZ 



• CGNVERT AND 
...X» ReSTORE INTO 

• BUFFER 



• IIMCFEMENT • 

• BUFFER • 
•OeCRFMENT COUNT" 



• ALL 
CHARACTERS 

•.CaNVERTED, 



HHTURN TO 
CALLER 
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* * 

* A3 * 

* * 



*00l* 
* ft5* 



♦ FNTER LIRF * 

♦ OMCHO ♦ 

♦ * 



* * 

* INrREMFNT XRl * 



**«***««4<«**««««ifr 



BRANCH 

TO I/O 

.FUNCTION 



CA?59 X 

♦INCREHENT ttOCT* 

* MONITOR I/O « 

* COUNTER * 



********«•**«*«** 



* 

♦ S4VP XR 

* 



.l.....oni F5 

.7 001 A5 

.^...,.001 B^ 

.* 001 F5 



* ♦ 

* SFT THIS * 
♦SUBROUTINE flUSV* 

* INDIC ON • 

* * 



♦ * 
♦GET HORO COUNT ♦ 
♦FROM FIRST WORD* 

♦ OF I/O AREA ♦ 

♦ « 



* Loan xni 

* THIS TV 

* AfinR 
♦ARGUMENT 

♦ 



******* 

FROM ♦ 

WITH * 

nr * 

APPRS * 

♦ 

******* 



****n! ♦♦* 

♦ caiUM 

♦INTERRUPT 

* n 
********* 



****** 
I ♦ 
LEVEL* 
* 

****** 



***** 

♦ no?* 

♦ r,4* 



****F1*+* 
♦ OP CHMP 
♦INTFROUOT 



****** 
LETE * 
LFVFL* 



*************** 



CAIA.*. 

C? *. 

.* I/O ♦, 

,* FUNCTION *. NO 

.X*.LFGALt (4 OR .♦.,. 

♦. LESSl ,* 



*«**«D7******* 

* CONSTRUCT * 

* HOX TO I/O • 
♦FUNCTION BRANCHY 

* TABLE * 

* ♦ 
************** 



*****£?♦*♦**«* 

♦ CONSTRUCT £ 

♦ INSTR TO CALC 

♦ OFSIREO IQCC 

« * 

************** 



* C-1 ♦... 

* * . 
♦ **♦ 

CA?<V X 

*****r3********«* 
♦GET 5 SAVE I/O * 

♦ AREA AODRIN ♦ 

♦ lOCC & RSTRT *■ ♦ 



***************** 



**«**n3*+******«* 



***************** 



♦♦*♦♦**♦♦♦♦♦♦ 



.* ]*; THIS ♦. 
. SUBROUTINE -♦ 
*. BUST ,* 



C4?6.*. 




♦. 


C4 *. 




ct *. 






.* WORD ♦. 


ERROn *. 


YES 


♦COUNT ZERO ♦. 


[NOICATDR .« 


...«. JR 


ON .• 




♦.NEGATIVE .« 


». .» 




*. .* 


*. .* 


X 


*, .* 


• NO 


♦ **• 
* * 

I": 

«*»♦ 


• NO 



INITTATF 
♦ CALCULATED * 

DESIRED I/O 
♦ FUNCTION ♦ 

*«****««***«* 



FEED A CARD 

* * 

♦♦♦♦♦♦♦♦♦♦♦♦♦ 

*•** 



*****D5 **««****** 
♦SAVE WORD COUNT* 

* IN COLUMN ♦ 

♦ COUNTER t ♦ 

♦ RESTART * 

* ♦ 
«*»«•**«****•«*•* 



E5 *. 
.* WORD •• 
,* COUNT ♦. NO 
•GREATER THAN ••--. 



CA2B X 

* ♦ 

♦ INCREMENT XRl * 



***************** 



•*** 

• 001» 

♦ F5 ♦ 



**** 

CA40 X 
*****F5********** 



♦ /HJUl. ILLb(»AL • 
♦CALL ERROR CODE* 

♦ • 
***************** 



**•♦* 
*002* 
- Cl^ 



X^? 



************* 



NOT *, VE 
RFAO/ BIT .*,, 
ON .* 



***************** 



.*. 






raifi X 


Jl ♦, 






*****J7**«**««**« 


.♦ ♦ 






* * 


* !/n 


* 


NO 


♦DESTRen intIal * 


FUNCTION 




♦ . .. . 


♦.TEST (0) 






♦ inrr ♦ 


*. .* 








*, .* 




X 


*****«*****««*««* 


* vF<; 




*♦** 
* * 


• 


, 




* c* * 


, 






♦ * 


X 


. 




♦♦** 


♦*♦♦ 



.* I/O 
♦. FUNCTION 
•,FEEO (1» 



****«*H3*«*******^* 



************* 



*««*« 
*002* 

* Rl* 



*****04*** ♦♦♦♦♦♦♦ 


♦ * 


♦ * 


* 


♦ * 




* RESTORE ACC * 




♦ * 




* • 


*«•• 




« * 




* G? * 


♦ **♦ * 


♦ ♦ 


♦ 001* 


•*♦* 


« Hh *.X. 


X 


* ♦ , 




**•* 


: YFS 


CA2'J X 


CA*2.*- 


***««H4**« ♦**♦*** 


H5 *. 


* * 


.* *• 


* SFT UP RETURN ♦ 


.* IS ♦. 


♦ AODR FROM XRl * 


..X^. DEVICE BUSY -* 


* * 


*. BIT ON .* 



****«*««*«*«**«** 



* IS THI 

SUBRHUTI 

♦. ftUSY 



***************** 



CA34 

X 

****K4*«* ****** 

* RETURN TO « 
*MAINLINE (MAYBE* 

* VIA SPRETI * 
**««***« **f*ft*« 



j; *. 








IS •. 


NO 


ERROD CHECK 


*.... 


. Rir ON .♦ 




*. -• 




*■ •* 


X 


• YES 


***** 




• 002* 


. 


• Bl* 



**** 

* « 

* F4 * 

* * 
**** 



.* I/O 
, FUNCTION 
♦ .FEED 0> 



*«**« 
♦002* 
• A I* 



**♦*» 
*002* 
* Bl* 
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♦on?* 



« * 

• SET ERROR * 
♦INDICATOR ON TO* 
*FORCE CftRO SKIP* 

* * 



CA41 X 

***** ni ♦*****•**• 

* * 

• LDAQ 4CC WITH * 

♦ /lOOOf I<h42 NOT* 

*FRnv ERROR rone* 
+ * 

******♦**♦**•♦»** 



♦ flECRFHENT XRl ♦ 
♦BY I S STORE IN* 

♦ «PRFT * 

♦ ♦ 

***************** 



****«D1****««**«* 



***************** 



***** 
•001* 
♦ H4* 

* • 



***** 

♦ 00?* 

* F!* 
* * 



♦ SENSF l'f»42 DSW * 

WITH HESET 

* LEVFl. 4 * 

************* 



FRROR ♦. YES 

CHFC'< BIT .*.... 
ON .* 



*DECftFMFNT ilOCT* 

* MONITOR I/O • 

* COUNTER • 

* ♦ 
****«*•*****«*«** 



****«B2***«*****« 

* RESET THIS • 
♦SUBROUTINE BUSY* 

* INDIC * 

* « 
***************** 



*«**C7********* 

* RETURN FROM * 
♦INTERRUPT lEVFL* 

♦ 4 * 
****•****♦«*•** 



***♦ 

* * 

* E7 * 

* * 
*«*« 



NTinX 


.♦, 

F2 *, 






* * 




NO .* 


IS 


* 




FUNCTION 




* 


PUNCH 


.* 



«*«***F2*********** 

* * 

-. EJECT LAST CARD 

* * 

********«**•« 



♦ ««« 

* * 

* A4 ♦ 

* ♦ 
**** 

X 

! NO 



.* IS «. 
,X*, FUNCTION 

♦, PUNCH .* 



*SENSE 1442 DSM « 

WITH RESET 

• LEVEL • 

*•**«*******« 



,* NOT *, YES 
. READY BIT .•..,.. 
«. ON .« 
*. .* 



NO .* ERROR *. 
-.*. INDICATOR .« 
•• ON .• 



«****«£3««««*«*««*>|i 

4 * 

FEED A CARD 

• * 

*****«**«•*«« 



*»**F3«******** 

* RETURN FROM * 
♦INTERRUPT LEVEL* 

* 4 » 
«***«•««*««**•* 



NT13f1 •*. 

A4 *• 

.♦ FEED ♦. 

NO ,* CHECK ♦ 

..,«•. INDICATOR IN 

*. CARRY .• 

♦ - .* 

*. .♦ 



*«*«4B4*«******** 

• SET ERROR ♦ 
*INDICATOR ON TO* 
•FORCE CARD SKIP* 

♦ « 
***************** 



NT13C X 

*****0^*********« 
« LOAD ACC WITH * 
*/lOOO, 144Z NOT* 

♦ READY ERROR • 

• CODE • 

* « 
***************** 



*«***«*****«****« 



**** 

* * 

♦ E2 * 



*****Jl *•*«**«*«* 



***************** 



.* WAS ♦. 
.♦ ERROR ♦, YES 
♦ , INDir.ATOR ...... 



« RESTORE UORD * 
* COUNT e I/O * 
♦ADDR FOR RETRY * 
« * 

***«•*******««*«« 



*«****j'^ *********** 



************* 



****K^ •♦*****•♦ 

♦ RETURN FROM ♦ 
•INTERRUPT LEVEL* 

* 4 ♦ 
*************** 



•***• 
♦002* 
• G4* 



*SENSE 144? DSW * 

WITH RESET 

* LEVEL * 

******««•**** 



*«***H4********** 

* DECREMENT * 
*CaLUMN COUNTER * 

* BY 1 • 

* * 
***************** 



J4 *, 
,* ANY *. 
.•ADDITIONAL *. YES 
*. COLUHNS .*,... 
♦- LEFT .* 



•*««*****«*««**«* 



* COL TO PUNCH, * 

* SAVE IN SUBR * 

***************** 



*****ES***«****** 

* SET PUNCH COL • 

* lOCC ADDR TO * 

* ADDR - 1 OF ♦ 
«OATA WORD MITH • 

* 12 BIT * 
**«***•*****««*«• 



* INCREHENT I/O • 
•ADDR IN COLUHN • 

* lOCC « 

* • 
***************** 



******G?*********** 



•*••*«•*•**•• 



****H5******^** 

• RETURN FRDH • 
♦INTERRUPT LEVEL* 

* • 

***•««••****•«« 
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* * 

* A? * 

* * 



♦ ♦ 
» A* * 

* • 



***** 
♦ 003* 
« A5* 



^^t*M********* 

* FNTFff LlflF ♦ 

* PNCHl ♦ 

* * 
1i»************* 



#****H-y********** 

* * 

* INCRFHENT XRl ♦ 



^*******tt******* 



,* BRANCH 
TO I/O 
♦.FUNCTION 
«. .* 

** .* 



♦INCREMENT $IOCT« 

♦ HONITOR 1/0 • 

♦ COUNTER ♦ 

♦ « 
***************** 



***************** 



■fit ***ni ********** 

* * 

* * 

* SAVF XRl * 

* * 
***««**♦♦♦*•***** 



.1 003 F5 

,2.....00^ A5 

.3 003 E3 

.4 003 F5 



M****^^********** 

* * 

* SET THIS * 
♦SUBROUTINE BUSY^ 

* INDIC ON ♦ 

* . • 
***************** 



*****a^********** 

* * 
•GET WORD COUNT • 
♦FROM FIRST «OR0+ 

* OF I/O AREA ♦ 

* ♦ 
***************** 



*««4^4'C1 ♦♦♦♦****** 

* LOftD XRl FROM ♦ 

* THIS TV WITH * 

* AOflR OF * 

* 'VFtGUIFNT 40DRS • 

* * 
m**************** 



INTl 

* rOLUHN * 
♦TNTFRRUPT LEVEL* 

* * 
**♦♦**♦♦♦♦*•♦*♦ 



♦ ***♦ 
*f)0^* 

* Fl* 



HL^^tPl********* 

* HP COHPLFTE ♦ 
♦INTFRRUPT LEVFL^ 

* it * 
*i^**^c********** 



***** 
♦004* 
* F2* 



,♦ ]/0 ♦. 
* FUNCTION ♦< 

LEGAL <4 OR . 
*. LESS) ,♦ 



*****f)?******* 

* CONSTRUCT * 

* MOK TO I/O * 
♦FUNCTION BRANCH^ 

* TABLE ♦ 

* ♦ 
*************** 



miH*mB7******* 

* * 

* CONSTRUCT S 

♦ TNSTR TO CALC 

♦ OFSIREO lOCC 

• ♦ 
^^************ 



**** 

* * 

* F5 ♦ 

* * 
♦♦♦♦ 



CA24 

*****C'i********** 

* GET AND SAVE ♦ 

♦ I/O AREA AnOR ♦ 
♦IN !OCC S RSTRT+X, 

♦ ♦I ♦ 

* ♦ 
***************** 



**** 

* * 

• C3 ♦ 

♦ ♦ 
♦♦♦♦ 



* IS THIS 

SUBROUTINE 
♦. BUSV 



************* 



t,****fyi ********** 



***************** 



* E3 ♦.X. 

* « . 
•♦♦♦ ■ 

CA25 XFEED 

*****^ii********** 

* * 

* INCREMENT XRl ♦ 



«*•««*«««««««**«« 



*i)E**>tiF3 «**«****«'* 



***************** 



*«*«*+G^ ♦♦♦**♦*♦♦♦♦ 



************* 



ERROR 
INDICATOR 

ON 
♦ . .♦ 



******n^*********** 

♦ INITIATE CALC ♦ 

DESIRED I/O 
* FUNCTION ♦ 

**** 

* * 

* E4 ♦... 

♦ ♦ . 

**♦♦ 



FEED A CARD 

* ♦ 

im*t********* 
**** I 



COUNT ZERO 

OR 
.NEGATIVE . 



♦ F5^ 

♦ ♦ 
**** 



**** 
CA28 X 

*****pif********** 



,*X* 

• • • 

, ♦ ♦ 

***************** 



iH,4i*tcQtt* ********* 

* * 

* * 

* RESTORE ACC ♦ 

* ♦ 

* ♦ 
^* *************** 





**** . 




*003^ 




♦ H4 ♦.X. 




♦ ♦ • 




♦♦♦♦ 




CA29 X 


H3 ♦. 




.♦ ■ ♦. 




LAST ♦. NO 


♦ SET UP RETURN ♦ 


CARD BIT ON ,♦,,,• 





**t**DS****'****** 

* * 
♦SAVE WORD COUNTS 
♦IN COL COUNTER ♦ 

* S RSTRT ♦ 

* * 
***************** 



E5 ♦. 

-♦ WORD ♦. 

-♦ COUNT ♦ 

.GREATER THAN 

♦ . 80 .♦ 

♦ . .♦ 

♦• .♦ 



* F5 *.X. 

* • , 
**** • 

CA40 X 

*****f3********** 

* * 

* LOAD ACC WITH ♦ 
♦/lOOl, ILLEGAL ♦ 
♦CALL ERROR CODE^ 

* ♦ 
***************** 



X 
*•**♦ 

♦ 004^ 

♦ CI* 



**** 

* * 

* a* 

* * 
**** 



***************** 



««*««*«*««*>)•***** 



I/O 

fi;nction 

• TFST mi 



***************** 



I/O 
FUNCTION 
.FEED (3) 



**m************** 





X 




-*- 




J5 ». 




.* *- 




.« IS 


* 


. ERROR CHECK 




t. BIT ON . 




«. •• 








• res 



***** 

♦004^ 
♦ Bl* 



« IS THIS 

SUBROUTINF 
♦. RUSY 



«*«*«*<3«^****iti«*** 



**«««« *:»*]^*«* 



♦ ♦♦*♦ 

♦ 004+ 

♦ SI* 



****yit^********* 

* RETURN TO * 
♦MAINLINE <HAVBE^ 

♦ VIA *PRETI ♦ 

*************** 



I/O 


♦. 


NO 


FUNCTION 




♦-.,. 


FEED (3) . 


* 




♦ • .♦ 












♦ YES 




*«««• 






• 004* 

♦ Bl^ 


X 




« * 


**«** 




* 


*mh* 






*.M* 
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♦ *♦♦♦ 

*004* 

• Al* 



• A? * 

• * 



* * 
*SFT PHRan tNDIC* 

* ON eVFN TO ♦ 
♦FORfE CARD SKIP* 

* ♦ 



* ni *-x. 

* * . 

ra^i x 

«*«*]tiB] *♦•**•**»* 
« LQAn ftCC WITH * 
*/lO0O, 14«2 NOT* 

* RFAOY FRRDR * 

* TOOE * 

* * 
«*iti Id ****** ******* 



*no4* 
* Ci *.x 



rA44 K 

****:»C I *«>f ******* 

* * 

* DFCRFMFNT XRl * 
*BV I £ STORE IN* 

* IPRFT ♦ 

* * 
fffi*************** 



*«4i««nL ********** 



«***«««**>i<*«*«*** 



***** 
*nn^* 

* Fl* 



WITH RFSFT 
* LFVf^L n * 



*****G1 ***♦+**♦** 



+**«*•>(:*«««****** 



* ANV 

4nniTEnNAL 

♦ .CQL LEFT . 



♦ INCRFHFM CQL * 

♦ T/0 AnnR IN * 

♦ I arc * 

♦ * 



**«**K1 ********** 

* 'OR' TN STOP * 
*PIJNCH ATT 12 TN* 

♦ OATA nX- NFXT * 

* roL rn punch * 

♦ SAVF IN SURR * 
***************** 



*****A?********** 

* SET PUNCH COL * 

* lOCC *nOR TO * 

♦ APnR - 1 OF * 
♦DATA WORD WITH * 

♦ 17 BIT « 

4I**************** 



>ti«>d* ****** *•**«** 



««****i;^2**********« 



************* 



****n7*****«**« 

* RETURN FROM * 
*1NTERRUPT LEVEL* 

* * 
*************** 



***** 

• 004* 

* F7* 



♦ SFN<;e 1447 osw 

WITH RESET 

* LEVEL 4 * 

************* 



FRROR 
CHECK BIT 
. -ON 



.* IS *. NO 

♦ . FUNCTION .♦.,, 
*. PUNCH .* 



*****Q^*****^**** 

• CONVERT pyUCH ♦ 

• lOCC TO FEHD ♦ 

* I DCC * 

* • 
************n**** 



******Cl*****%'****t 

* * 
EJECT LAST CARD 

* * 

**** * 

* * -X ,,. 

* 03 •.X. 

* ♦ • 
«**♦ , 

*0 

-ER'- , 

* INOI£aTOP: • 

* * 

* • 
**************m** 



*****ttA********** 

* LOAD ACC WITH • 
*/500l, FEED OR ♦ 

* PUNCH CHECK * 

• ERROR CODE * 

• * 
***************** 



**(itt******* 

* BRANCH TO 
USER'S ERROR 

* SUBR 

* « 

*********** 







**** 






♦ * 

• C5 *... 






* * . 


x 




**♦♦ X 


■•• 


CR73B .♦. 


C4 ♦. 




C5 *■ 


•• .- •• 




.« READ *. 


USER ♦. YES 




•* STATION 


SET ACC TO -*--., 




••*. JSIBk . 


. ZERO ,* 




•• .* 




*. .* 


*. .* X 




*. .* 


* NO **** 


* NO 


• * 


* 




* F3 


* 




« 


♦ 




**«• 


, 



IS 

FUNCTION 
. PUNCH 



•SET ERROR INOIC* 
»0N ODD TO FORCE* 

* C«RO SKI?" • 

• * 



.* HAS *. 


fP.S 


*. ERROR INDfC .* 




*.0N t ODD .* 




*. .* 




«. •* 


X 


• NO 


*•»♦ 


*•** 


« 


* * . 


* E4 


* F^ *,X. 


• 


* * . 


*•** 


**** 




CR64 X 




*****p-i*********ti 





* RESET THIS • 
•SUBROUTINE BUSY* 

* INOIC * 

* * 
^**************^t: 



«*««*(;i***«*««**« 

* DECRCHENT * 
•tlOCT, MONITOR * 

* 1/0 COUNTER * 

* * 
***************** 



***** * ,x. 

***• « 
CR77 X 

******^^*********** 

*SENSE 1442 DSH • 
WITHOUT RESET 



»«*«****«***• 



.* ♦. 

•• NOT *. 

*, READY BIT . 
*. ON ,* 



CR75 

**m**r:^**** ****** 
* LOAD ACC WITH • 
*/lO00, 1442 NOT* 
...X* READY ERROR * 
« CODE * 



«•«********«**••* 



***************m* 
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* READ 113? 

• EMITTER INTO 

* WHEEL 

♦ * 

«•*«**«*«•*«** 



* • 

* G^ * 

* * 

***• 



FC76 
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* SCAN FieiO ♦ 

* • 
«*«***«*«**««**** 
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***** 
•005* 
• E7* 



ILGL2 X 

***«*E2*>*'4>*<t<***4>* 
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E5 

* 

ALL 



*«««**•••«******* 
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♦*♦* 
FC5A X 

***** J -)•*****•••* 

* * 
♦DFCREHENT JIOCT* 

* MONITOR I/O *. 

* COUNTER RY 1 * 

* • 
***************** 
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**«««C5********** 

* • 

* • 
-.X* RESTORE XR2 • 

* • 

***************** 
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**** I 
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* * 


* J? *.x. 
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* * 
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* BY 2 * 


* $PRFT 


♦, BUSY 


* 


■ 


* * 





t^tlt********** 



««***«*****«*»*** 
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* * 
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z «♦** 

• ♦ * 

.*X« J5 * 

* * 
***« 



a*« 



G4 
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**«****««*««*>»•** 



♦ RESET RIGHT ♦ 
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**««*K4 ********** 
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♦ »A1 **.«**«* 

* RHANCH TO * 
IHTPRRUPT • 

SUBROUTING * 

* VIA tlRECJ « 



«**« 

X 

****n I ********* 

* ♦ 

* RFTURN TO ILSt)4^* 

* * 
*************** 
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««*+**•«*«*«*««•« 



READ 
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«***«f}2********* 

* RFSTORE 

* RFGISTfR 

****** ********** 
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***************** 
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*************** 
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***************** 



4****J1 ********** 

* * 
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***************** 



«****D4 ********** 
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* * 
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ERROR .*. 
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* IDBSY * 
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*************** 
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***************** 
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* SftVF SFFK « 
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***************** 



*****)= l**«******* 
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♦ SAVE » 
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***************** 
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*5FT UP ADOfi OF » 
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***************** 
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**************** 



***«*<1 «*«***«*** 

* * 
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***************** 
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***************** 
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♦ * 
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***************** 
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♦ ♦ 
***************** 
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♦ ♦ 
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• 
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+ NO 


♦**** 


* VE 




♦ 014^ 




> 


♦ a?* 
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***************** 
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* * 
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♦ . .* 


X 
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*♦♦* 
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.♦. 








X 
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NO 
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FUNCTION 
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♦ . .* 




♦ ♦ 


♦ . .* 


X 


*. ,* 


X 
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♦ ♦♦♦♦ 


♦ NO 
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♦ 013* 
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♦•♦♦ 
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X 


♦ ♦ 


X 
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**♦♦ 


* 
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♦ 
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♦ Al» 



* * 

* STORE NEXT * 
♦SECTOR ADDRESS • 

* INTO I/O AREA * 

* * 



*'*««4iB?*«*4'*****+ 



WRITE 


« 


NO 


* SET UP USERS 


IHMEOIATE 




*•.., 


♦REQUESTED tOCC 


FUNCTION .♦ 












• 


*• .* 






*************** 


* YES 




*♦*♦♦ 
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» ♦ 





****«CT *«♦♦***♦** 



♦***♦♦♦**♦♦♦***♦♦ 



YES 


.* 


CARRY ♦. 


- ..♦ 




ON 




* 


-♦ 
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X 




♦. ,* 


♦♦♦♦* 




♦ NO 


♦ 012* 






* C** 






* * 




, 



*****f I********** 



***************** 



♦****F1 ♦♦♦«****** 

♦ DFCREMFNT * 

♦ INTERMEHIATE * 

♦ MORO COUNT RY * 

♦ 3?f) * 

♦ ♦ 
*«*******« *«*««** 



LAST *, 

SECTOR TO .* 
. PROCESS .♦ 



**«*«H I ♦**♦**♦*** 



««****««********* 



***««J1**«*«4<«*** 



***************** 



*****K1 ««******** 

* • 

* STORE WORD ♦ 
♦COUNT INTO I/O ♦ 
» AREA ♦ 

* ♦ 
***************** 



*«***C ?♦♦♦*♦***** 

♦ 01220 0140** 

*TnTt I ate" USER S~* 
♦REQUESTED lOCC ♦ 

* * 
*«*«*«********«** 



****mnf ********** 

* ♦ 

♦INCREMENT [QCC ♦ 

* SECTOR NO. BY ♦ 

* ONE ♦ 

* « 
*«***«««***♦*«*«* 



***«*^;j ********** 

♦ ♦ 

♦ INniCATE IF ♦ 
♦NEXT SECTOR ON ♦ 

♦ NEXT CYtlNDER ♦ 

♦ ♦ 
*«•**«******«•♦** 



**««*f ;>********** 

* ♦ 
♦INCREMENT NEXT ♦ 
♦SEQUENTIAL SCTR* 

* ADOR BY ONE ♦ 

* ♦ 
*****«*«*«**♦«♦*♦ 



**♦« 

♦on^ 
♦ G? * 



♦ MEDIATE 

WORD COUNT 
♦.EXHAUSTED. 



*****M?^ ♦♦♦♦♦♦♦♦♦ 

* ♦ 

♦ SAVE NEH HORO ♦ 

♦ COUNT AND ♦ 
♦SECTOR ADDRESS ♦ 

* ♦ 
***************** 



.♦ WRITE ♦• 

.♦WITH READ- ♦. 

BACK" 

♦. CHECK ,♦ 



**«**K2^******^^* 
« ♦ 
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♦ ♦ 

***********•«**♦« 



♦ READ- ♦. NO 
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X 
♦♦♦♦♦ 
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♦013* 
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♦♦♦♦* 
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♦♦♦♦ 
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♦ * 
***************** 



♦♦♦♦ 
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♦ ♦ 
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♦ EXIT ♦ 
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***************** 
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♦ ICYLN ♦ 

♦ * 
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***************** 
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* B*** 



* SET UP ERROR * 

« rone for user ♦ 

* CALL * 
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,* HAVE 16 *. 

RETRIES 

♦.BEEN MADE,* 



***************** 
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* /500? TO *CC 



«***««*««***«**«« 
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***************** 
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• * 
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.* •• 

-* IS 

*. FUNCTION 
*. READ . 
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***************** 
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***• 

* « 
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LEGAL,*, 


F? ♦, 


.* *. 


.* !^0 *. 


*. FUNCTION ,* 


*.MRITF < 1).* 




*, ,♦ 


* NO 


***♦ , 


* * . 


♦ F2 *.X. 


* * , 


**** 


ERR FT- I X 


***«*F'7 ********** 



AI X 
•****f ')*«******** 

* STOtF OEVICE * 
*DIGIT IN aifS 4+ 

* - 7 OF DEVICE * 

* HORD * 

* 4^ 

************ **««4 



*****m ********** 



* LDAC ALL WITH * 
*/7n01, ILLEGAL ♦X,... 

♦ CALL FOROR COOF* X 



***************** 



■*♦** 
FRBFT X 
«****<;?*******«** 

* * 

* nfCREHENT XRl * 
*RV ! E STORF IN* 

* SPRET ♦ 

* * 
***************** 



*****H7*4******** 



WAS 

EvrcE 

ICIT 



*****Ql ********** 



***************** 



**** 

* * 

* A4 * 

* * 
**** 

X 
**«**A4««« *****«« 

*GET WORD COUNT • 
*FRON FIRST HORD* 
* OF I/O AREA * 
« * 

***************** 



NO 


* 


WORD *. 


■ ■ •* 




pd5?VWe ..• 




• 






♦- .♦ 


X 




*• ■* 


«*** 




* YFS 


* 






F7 * 




, 


* 




. 



****«C4******«*** 

* * 

* « 
♦SAVE WORD COUNT* 

* * 
« « 
***************** 



*****Q4*******«** 

* * 

* GET I/O ARFA • 
*ADOR SAVE ADDR * 

* +1 ♦ 

* * 
***************** 



*****E4********«* 

* « 
*HOVe FIRST HORD* 

♦ OF I/O AREA * 

♦ DATA TO BUFFER * 

* ♦ 
***«*******«*«««« 



• * 

• A9 * 

• ♦ 

**** 

X 
**«**AS*«««*«**«* 
» * 

*GET & SAVE USER* 
* ERROR * 

♦SUBROUTINE AODR* 
« • 

***************** 



♦ SET THIS SUBR • 

♦ BUSV INDIC C ♦ 

♦ FIRST iNOft * 

♦ • 



X 
*♦♦** 
•0'7* 
* Kl* 



************* 



NOT *, YES 

READY BIT .*.... 

ON .* 

♦ . .♦ 



• ^/UUUf rLUMtK ■ 

•X^NOT READY ERROR* 

♦ CODE ♦ 

* • 
**•*«**•«****•*«* 



•*«**E5********** 



***************** 



«******»*«*****«* 



***************** 



***************** 



***«**«*«**««**** 



***** J-;***** !>**«* 



************ii**** 



«*«**K3^^*^***^^^ 

* * 

* SET HEX DIGIT * 
*IN WORD COUNTER* 

* TD 5 * 
« * 

«***«*«*«****c**** 



*****J4«t******** 

•INCREMENT tlOCT* 

* HONITOR I/O • 

* COUNTER BY 1 ♦ 

* * 
***************** 



♦♦♦♦*K4******^*^* 



***************** 
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**♦* 

« * 

• A5 ♦ 

♦ ♦ 
*«** 
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• A? • 



♦rNTERRUPT ENTRV* 

• VTA TLSO? * 

* * 



*«i^*4(4;«1t«****««** 



****«*(: 1*********** 



•«*****«***** 



♦ LOAD ACr WITH ♦ 

♦ /nooi ■OR' en ♦ 

♦ [NTO OEVTCE * 

♦ niGIT IN BIT*; ♦ 

♦ 4-7 * 



* ftUANCH TO 
♦ USFR»S FRROR 

* SURROdTINE 

* + 



***** 

* * 

♦ HI * 



**** 

PLT X 
*****H1********** 



i>*«*«******«**fr«* 



• *. 

X ♦ 

**** 

m *«** 

• J? *077* 

• * Kl *, 

ALPHA y 
«*«<|[*K I ********** 



4, *«****«*****««** 



ALPHAS? X 

****4cA?* ********* 
•GET 027A5* 

X* * 

*fiET NEXT DIGIT * 
* ♦ 



• IS 

DIGIT O, 
*. OB F 
*. 



-♦ IS *. NO 
*. Olt^IT At n* .*... 
*. OR C .* 



NO .* IS *, 
...*. DIGIT A 

. *. .* 



*GET NEXT DIGIT * 

* ♦ 

***« 

* * 

* F7 ♦.X 

* * 
**** 

RL-5 X 
*****F7««*««**i*«« 



**«* «*«*««****««• 



G2 * 
,* 
* DUP 
COUNTER 



* SHIFT LEFT 4 * 
.X*BITS e STORE IN* 

* DUP COUNTER * 

* * 
««*•***«********* 



4rt«**e3********** 

*GET_ 027A5* 

♦GET NEXT DIGIT ♦ 
* * 

ii****** ********** 



*****C3 ********** 

* * 

* 'OR' OOP * 

* COUNTER INTO * 

* ACC * 

* * 
«««****««******«* 

I **** 

• * * 

,,X* F2 * 

* * 

**** 



.* *• 

* FIRST • 
DIGIT INDIC 



*«** 

C X 
***««E3********** 
*GET 027A5* 



♦GET NEXT DIGIT 

* 

«*************4(* 



«4r«**F3 ********** 

* * 

* SHIFT LEFT 4 * 
*BITS £ STORE IN* 

* DUP COUNTER * 

* * 
**««**«****««**** 



♦GET NEXT DIGIT * 

♦ * 

**•♦***♦*♦****♦** 



LOOK X 

«****H3 ********** 

* ADO DIGIT IN * 
*WORK TO AOOR OF* 

* PLOTTFR CNTRL * 
♦HQRDS* STORE IN* 

* IDCC * 
*««*«*«***«****** 



*♦+* X 




8C .». 




JJ ». 




.• ». 




.• ts •. 


yfs 


nrciT c 


*.... 


». .» 




*. .* 




♦. .♦ 


X 


• NO 


•*•« 




* 




* F1 




t 




**«« 



* H4 • 

* * 
**•* 



*««**«B4 «******«*«* 



***«*«***»*«* 



****C4*******»« 

* RETURN FROM * 

* INTERRUPT * 

* * 



*««*4Egi^*««i|[4'««*** 

* LOAD ACC WITH • 
*/7000, PLOTTER * 

.X*NOT READY ERROR* 

* CODE • 
« * 
********««*««***« 



«****F4*«******** 
**PST3 * 

*PAUSE FOR POST * 

* - OP ERROR ♦ 

• * 
***************** 



***«***«*«*«* 



♦ **♦ 

FST X 

*****H4*«******** 



^4*«««««««**«*«** 



*«**«* J4*****«****« 



««*««>1l!***«*«* 



***«AS********* 



*************** 



*«*«*B9********** 

* DECREMENT HEX * 

* DIGIT IN WORD * 

* COUNTER Br I * 

* • 



.* COUNTER *. 

.LE. 

*• .* 



X 
***** 
•028* 
« CI* 



«««**Q9*******4** 

* * 

* RESET COUNTER * 

* TO 4 BY * 

* INCREMENTING ♦ 

« * 



**]|i**E5********** 



*«******•«**•*••* 



COUNTER *, NO 
.LE. ...... 

■ * 



***** 

«02B* 
♦ Al* 



***«*K2*******«** 
*GET_ 027A5* 

* ♦ 
•GET NEXT DIGIT * 

* * 
«««****«********« 







**** 


_ 






* * 








* J^ * 








* ♦ 


X 






***« 


***** 


X 






•026* 


.♦. 






* Gl* 


K3 *. 






* * 


.♦ * 




**«• 


• 


.* RUSY OR 


*, 


YES * * 




. NOT READY 




*..,,X* E4 * 




*. BITS ON 


* 


* * 




*. .* 




♦ ♦** 





*****65**** ****** 

• DKREHENT «IOCT* 

• HONITOR I/O * 

• COUNTER BY 1 * 

• * 
****** •A********* 



*****H5*******«** 



***************** 



NO .* FIRST *. 
*. DIGIT INDIC .* 



***** 

• 026* 

* Gl* 

* * 
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♦ ax* 



*INCREHFNT ADIWS* 
♦OF I/O 4RE& BY • 

• 1 * 

♦ * 
t********* ******* 



* * 

* HDVe WORn NOT * 

* POINTED TO IN * 
*I/0 ARFA TO 8FR* 

* * 
«*««,**««««******* 

***• ' 
♦028* 

* CI *.*. 

* ♦ , 
*«** . 

SHIFT t 

* * 

* GFT WORD FROM * 
»BFR 11^ FXT ZFRO* 

* arc * 

* * 

******* «r****«*i^«* 



* SHIFT <» BITS * 

* INTO ACC C * 

* STORF ACr IN * 

* WORK * 

* * 



*«***f ]*****«**** 



l)I««>t;*4**««*4<*«««ir 



4:*«*ftF1 ********** 

* * 

* RESTHRF DIGIT * 

* FROM WORK TO * 

* Acr * 

* ♦ 

***************** 



****C,\********* 

* RFTURN FROM * 

* INTERNAL SURR * 
« * 

*************** 
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*0'9* 

* A3* 



07000 

* * 

* INITIAL ENTRY * 

* * 
*************** 



OZOIO 

****l^2********* 

* * 
♦INTERRUPT ENTRY* 

* * 
*************** 



DZ190 X 

4>*«*«A3 ********** 
♦JPST2 * 

* * 

* BRANCH TO * 

* POSTOPERATIVE ♦ 

* ERROR TRAP * 
***************** 



*************** 



*****^ 2 ********** 

* * 

* SAVE RETURN ♦ 

* AOORESS AT * 

* OZOIO * 

* « 



*****z^********** 



***************** 



«*«*i^B4********** 

* SAVE RETURN * 

* ADDRESS AT ♦ 

* 02060 • 
« « 

***************** 



*****C\ ********** 



***************** 



*****ni********** 



nziflo X 

*****c ^********** 

* RFSTORF yRl * 

* WITH CURRFNT * 

* I/O AREA * 

* ADDRESS * 

* * 
***************** 



*****Ti2********** 



**** 

* * 

* Fl * 

* * 
**** 



•«*«*C4********** 
« * 

* SAVE I/a ARE* * 

* ADDRESS tXRU * 

* AT DZ190 • 

* * 
***************** 



AVF AT »ODSW * 



***************** 



*****^l********** 

* * 

* SAVE I/O ARFA * 

* AnORFSS AT • 

* n7.2i'i * 

* * 
***************** 

**** 



***************** 



************* 



* FI *.X 



**** 

ozoin y 

♦♦*#*Fl ••*♦*♦»*** 
« SET USFRS * 

* RETURN RCDR * 

* FRHM OTOOO AT * 

* OZOin * 

* * 
***************** 



• *• 

E? *- 

,* * 
.♦ DATA 
*. ERROR 


*, NO 
.*.... 


n?:060 

****P3,********* 
•RETURN TO DISKZ* 
.*.,X* VIA 0Z070 * 


«•*« • 
*029* 

* E4 *.X. 

* * . 
**** 

07100 X 

*«*«*E4********** 

* * 

♦RESTORE XRl XftZ* 



*************** 



*****py********** 



***************** 
**** I 

*0?9* . 

* R? *.X. 

* * , 

DZtas X 

«***«G2********** 

* • 

* RESTORE THO * 
•WORDS SAVED TN • 

* BUFFER * 

* • 
***************** 



***************** 



****pi,********* 
♦RETURN TO USER * 

* VIA DZOIO * 

* * 
*************** 



.♦ HAVE ♦. NO 
. RETRIED !6 -♦..• 

♦. TIMES .* 

»• .♦ 



*«***J2***^^*«*^^ 



**«***********«•« 



*****K?********** 



***************** 
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***************** 

**** , 

*iT10* 

* CI *.X, 



* SFT YRl WITH * 

* ORIGINAL I/D * 

* ilREft anORESI * 

* * 
***************** 



**«**ni ********** 

* * 
♦SftVF WP rOUNT, • 

* ■^CTR flnnft fRo»i * 

* i/n fiPFfl ♦ 

* * 

««*«*««*********4, 



***4*f; ********** 

* INITlftLTZF * 
« INTFRMFniATfE ♦ 

* WDCNT, 5;CTR * 
*AnnR WITH THFSe* 

* VALUFS * 
***************** 



«*** 








*t)-*1* 








• PI *. 


V 


MAIN 




* ♦ 




LOOP 




**** 








n7740 




■ 




♦♦***F' 


*. 


******** 


* 






* 


*PFTCH 


A 


in SAVF 


♦ 


* HR roD 


■ FROH 


* 


* I/C 


t 


OFA 


* 



***************** 



**«**ni ********** 

* * 

*USE DRIVF ronE * 

* TO CO'^ni.lTF * 

* AHDRFSSES OP: ♦ 

* * 

***************** 



****«H1 ********** 



***************** 



***** Jl ***«*****« 

* * 

*P01.I.0HTNG LOOP * 

* Fa» -^ passES * 

* * 

***************** 



*****K1 ********** 

* * 

* FFTCH sprroR * 

* '\OORESS FROM * 

* I/O BUFFFB * 

* * 

***************** 



* * 

* REMOVE OftTVF • 
♦CODE AND SECTOR* 

* NIIMBFR * 

* * 
***************** 



*4**«B2*******«** 



***************** 



**«**f^7*«******** 

* SUBTRArr NEXT + 

* DEPFf-TIVF ♦ 

* CYLINDFR ♦ 

* AOORFSS * 

* * 
***************** 



.* Anns 6 

. GTR THAN 
*.flAD ADDS 



**««*F7*********'» 

* I KCPEMFNT * 

* OE^IRFO ♦ 

* CYLINDER * 
♦AOnRFSS BV ONF * 

* * 
***************** 



.X. raN«;TRucT 

. 'NO HO OF 

, lores 



*****(;7****««**4,4, 

* * 

* • 
*PETCH ARFA CODE* 

* * 

* * 
******«*«***•*•** 



*****H7********** 

• CONSTRUCT * 

♦ POSITIVE • 
♦DIRECTION SEEK ♦ 

* lOCC * 

♦ * 

***************** 



*****J>* ********* 

* ♦ 

♦CONSTRUCT READ ♦ 
♦TOCC WITH SCTft « 

♦ NUHf^ER ♦ 
« * 
***************** 



***«*K2^^^* ****** 

♦ * 
♦roNVFRT A WRITE* 

* lOrC IF WRITE * 

♦ RFQUESTFD * 

* * 
***************** 



***«*&3*****^*^ K* 



************** *i|t* 



**«**n3********iit* 



• •*************.x* 



*****C ')««******»:* 

* * 

* INTERMEDIATE * 

* SCTR ADOR TO « 

* EXTENSION * 

* * 
•**«*****««****** 

**** * 
*03t)* 

* D1 *,X. 

* * , 
***« 

07340 X 

«****0-3****'»«**** 

* * 

* SENSE DSW AND ♦ 

* SAVE AT tODSW * 

* • 

* * 
**«*******«**«*4* 



*****B4«********* 



***************** 



« INITIATE SEEK * 
« * 

***««**«*******«* 



***«*04********** 

« PLACE lOCC TO • 

♦READ I WORD IN ♦ 

* CURRENT lOCC ♦ 

* * 

***************** 



.♦WRITE * 








♦ . VFS 




OR POWEFt 


...... 


* INITIATE READ * 






♦ OF SECTOR * 






♦ ADDRESS * 








* NO 


***** 
♦03M 






♦ 03^ 


. 



* DISK * 


NO 


READY 








*. . * 




♦ . .* 


X 


♦ YES 


***** 




♦031* 


> 


♦ C4* 



*****FJV*** ***♦♦*« 

* * 

* FETCH SECTOR * 

* ADDRESS AND ♦ 

* PLACF IN JCYLIN* 

* * 
***************** 



*****G^ ***»*«***♦ 

* « 

* FETCH DESIRED * 

* CYLINDER AODR H 

* FROM I/O AREA * 

* + 

***********!:** 4 *>tr 



*****H3 ********* 9< 

♦ SUBTRACT * 

♦ CURRENT ARM ♦ 

♦ POSITION, » 

♦ tC YL I N B 

♦ » 
***************** 



• *. 


SEEK 


Ct *. 


ERROR 


♦IS THIS* 




REQUESTFO 


*. NO 


>♦.... 


AnOR 


* 


*- .♦ 




*. .* 


X 


* YES 


♦♦**• 




*0'9* 


■ 


* GZ* 



.*INTER- *, 
.* MEDIATE 
.X*, WORO COUNT 
♦.EXHAUSTED. 



***** 
•031* 
* 02* 



•****K3*********» 

* FINISH SEEK *' 

* lOCC WITH " 

* DIRECTION AND «' 

* NO. OF «« 

* CYLINDERS « 

***********«****«: 



*««**J4********** 

* * 

« DECREIFNT ♦ 
♦INTERMEDIATE WD* 

* CNT BY 120 • 

* * 
***************** 



*****K4**« ******* 

* INCREMENT * 

* INTERMEDIATE * 
♦SCTR ADOR 9Y I ♦ 

* • 
***************** 



.♦ LAST *. 

.♦ SECTOR TO *. 
. READ/WRITE . 



«*«*«B5«**« ****** 



**********«*«*««* 



«****C 5*******^** 



***************** 



*****os****«***** 



***************** 



♦♦♦♦♦E5*****^^^*« 

♦ SET IDCC FOR * 

♦ REQUESTED * 
♦READ/WRITE INTO* 

♦ CURRENT lOCC ♦ 

♦ * 
*****«****•**«*«* 



*****F5*****^^^^^ 
♦RESTORE SECTOR ♦ 

* NO. IN SECTOR * 

* ADDRESS IN I/O * 

* AREA * 

* ♦ 
***************** 



* INITIATE ♦ 

*RFQUEST€D READ/* 
♦WRITE FUNCTION * 
***************** 



****«H5«*«^^***«* 

* * 
*SET READ/CHECK * 

* lOCC INTO * 

* CURRENT IDCC ♦ 

* • 
***************** 



♦♦♦•♦ 
*031* 
♦ Al^ 
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**** 

* * 

* AS ♦ 

* * 
**** 
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***** 

♦031* 
* Al* 



Al *. 

.* WAS *. 

,* qPOlIFSTED *. 
. FUNCTION 
♦. RPAD .* 

♦ , .♦ 

*. .* 

* NO 



A**************** 



**««* 

♦ 031* 

* C** 



♦•***ci ***♦*•**♦* 



*«***«:********«** 



***** 

•tr^i* 
♦ D2* 



***** 
*fm* 

* 03* 



***************** 



.* TNTMn *, VfS 

, WORO CNT .*.... 

*.FrHAUSTFn.* 



***************** 



**♦*♦**♦♦*****•** 



♦ BRANCH TO * 

♦ PREOPERATIVE * 
« ERROR TRAP • 
***************** 



«4<4«*P1 ********** 

* * 

* ROTNI XOl ^?0 * 
*WORO«; AHIEAn TO * 

* NFW I/n ARFA * 

* * 
4«*«*«4i* ********* 



«r**i^«f:7*4*******« 

* * 
♦DFCREMFNT IOCS * 

* COUNTER tlOCT ♦ 

* BY 1 * 

* * 
t***i»4i*«********« 



***** 

♦ 0?9* 

* A^* 



***** 
*0^0* 
♦ 03* 



*>t>***pi*j4c* ******* 

* * 
« SAVE FIRST 2 • 

* WORn"; OF TH!^ * 

* AREA * 

* * 
«4.«'4t************* 



4'****G1 ********** 

* SFT * 

* INTERHFOIATF * 
♦WORO COUNT SrTR* 
♦ADRR INTO THIS * 

* ARFA * 
****««***«**««*** 



***** 

♦ 030* 

* Fl* 
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APPENDIX A. EXAMPLES OF FORTRAN OBJECT CODING 



This appendix shows, by example, the Assembler 
Language equivalent for the object coding generated 



Source Coding Object Coding 

Arithmetic Statements - real, integer, and mixed modes 
I=J LD L J 

STO L I 



by the FORTRAN Compiler. A typical cross-section 
of FORTRAN statements is shown. 

Object Coding 
With Trace* 



LIBF 
DC 



SIAR 
I 



A=B 



A=I 



I=A 



LIBF 




FLD 


DC 




B 


LIBF 




FSTO 


DC 




A 


LD 


L 


I 


LIBF 




FLOAT 


LIBF 




FSTO 


DC 




A 


LIBF 




FLD 


DC 




A 


LIBF 




IFIX 


STO 


L 


I 



LIBF SEAR 



LIBF SFAR 



LIBF SIAR 

DC I 



I=K-M 



LD 


L 


K 


S 


L 


M 


STO 


L 


I 



LIBF SIAR 

DC I 



A=I-B 



LD 


L 


I 


LIBF 




FLOAT 


LIBF 




FSUB 


DC 




B 


LIEF 




FSTO 


DC 




A 



LIBF SFAR 



* The period in this column indicates that the generated coding is the same as in the Object Coding column. Trace refers to Arithmetic 
or Transfer Trace, whichever is applicable. 
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Source Coding 



A=B-I 



A=B+I-J 



(A=I+B-J) 



]:=J*K 



Object Coding 


LD 


L 


I 


LIBF 




FLOAT 


LIBF 




FSBR 


DC 




B 


LIBF 




FSTO 


DC 




A 


LD 


L 


I 


LIBF 




FLOAT 


LIBF 




FADD 


DC 




B 


LIBF 




FSTO 


DC 




GTl 


LD 


L 


J 


LIBF 




FLOAT 


LIBF 




FSBR 


DC 




GTl 


LIBF 




FSTO 


DC 




A 


LD 


L 


J 


M 


L 


K 


SLT 




16 


STQ 


L 


I 



Object Coding 
With Trace 



LIBF 



SFAR 



LIBF 



SFAR 



LIBF 
DC 



SIAR 
I 



A=B*C 



A=B*I 



LIBF 


FLO 


DC 


B 


LIBF 


FMPY 


DC 


C 


LIBF 


FSTO 


DC 


A 


LD 


L I 


LIBF 


FLOAT 


LIBF 


FMPY 


DC 


B 


LIBF 


FSTO 


DC 


A 



LIBF 



SFAR 



LIBF 



SFAR 



308 



Source Coding 
I=J/ K 



Object Coding 


LD 


L 


J 


SRT 




16 


D 


L 


K 


STO 


L 


I 



Object Coding 
With Trace 



LIBF SIAR 

DC I 



A=B/ C 



I=J / (K+M) 



LIBF 




FLD 


DC 




B 


LIBF 




FDIV 


DC 




C 


LIBF 




FSTO 


DC 




A 


LD 


L 


K 


A 


L 


M 


STO 


3 


+126 


LD 


L 


J 


SRT 




16 


D 


3 


+126 


STO 


L 


I 



LIBF SFAR 



LIBF 
DC 



SIAR 
I 



I=A/ J 



LD 


L 


J 


LIBF 




FLOAT 


LIBF 




FDVR 


DC 




A 


LIBF 




IFIX 


STO 


L 


I 



LIBF 
DC 



SIAR 



I=J**K 



LD 


L 


J 


LIBF 




FDCI 


DC 




K 


STO 


L 


I 



LIBF 
DC 



SIAR 
I 
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Source Coding 



A=B**I 



A=B**C 



A=I**B 



A=B**(I+J) 



A=B**(C+D) 



Object Coding 


LIBF 


FLD 


DC 


B 


LIBF 


FAX]: 


DC 


1 


LIBF 


FSTO 


DC 


A 


LIBF 


IT-D 


DC 


B 


CALL 


I'AXB 


DC 


C 


LIBF 


FSTO 


DC 


A 


LD 


L I 


LIBF 


FLOAT 


CALL 


FAXB 


DC 


B 


LIBF 


FSTO 


DC 


A 


LD 


L I 


A 


L J 


STO 


L GTl 


LIBF 


ELD 


DC 


E. 


LIBF 


FAXI 


DC 


GTl 


LIBF 


FSTO 


DC 


A 


LIBF 


FLD 


DC 


C 


LIBF 


FADD 


DC 


D 


LIBF 


FSTO 


DC 


GTl 


LIBF 


FLD 


DC 


B 



Object Coding 
With Trace 



LIBF 



LIBF 



LIBF 



SFAR 



SFAR 



SFAR 



LIBF 



SFAR 
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Source Coding 



A =b-k: -(2**D*E -F)/G 





Object Coc 


ing 




CALL 




FAXB 




DC 




GTl 




LIBF 




FSTO 




DC 




A 




LIBF 




FLD 




DC 




B 




LIBF 




FADD 




DC 




C 




LIBF 




FSTO 




DC 




GTl 




LD 


L 


ADRl 




LIBF 




FLOAT 




CALL 




FAXB 




DC 




D 




LIBF 




FMPY 




DC 




E 




LIBF 




FSUB 




DC 




F 




LIBF 




FDIV 




DC 




G 




LIBF 




FSBR 




DC 




GTl 




LIBF 




FSTO 




DC 




A 


ADRl 


DC 




2 



Object Coding 
With Trace 



LIBF 



SFAR 



LIBF 



SFAR 



Arithmetic Statements - Subscripted Expressions 



A(I)=B(I,J)+C(I,J) 



LIBF 


SUBSC 


DC 


&GT1 


DC 


value D for array A 


DC 


I 


DC 


value D for array A 


LIBF 


SUBSC 


DC 


SGT2 


DC 


value D for arrays B 
4 


DC 


I 
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Source Coding 



Object Coding 



Object Coding 
With Trace 



M=L(I,J,K) 



DC 

DC 

DC 

LIBF 

DC 

LIBF 

DC 

LDX 

UBF 

DC 

LIBF 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

LD 

STO 



value D for arrays B and C 

J 

value D for arrays B and C (see Note 1) 

FLDX 

B 

FADDX 

C 

SGTl 

FSlOX 

A 



SUBSC 

SGTl 

value D for array L 



value D for array L 

J 

value D for array L 

K 

value D for array L (see Note 1) 



LIBF 



LI L 

L M 



SFARX 



LIBF 
DC 



SIAR 
M 



M(I)=M(I+1)+M(J) 



LIBF 

DC 

DC 

DC 

DC 

LIBF 

DC 

DC 

DC 

DC 

LIBF 

DC 

DC 

DC 

DC 



SUBSC 

SGTl 

value D for array M 



value D for array M (see Note 1 ) 

SUBSC 

SGT2 

value D for array M 



value D for array M (see Note 1) 

SUBSC 

SGT3 

value D for array M 



value D for array M (see Note 1) 
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Source Coding 



Object Coding 


LDX 


11 


SGT2 


LD 


LI 


M 


LDX 


11 


SGT3 


A 


LI 


M 


LDX 


11 


SGTl 


STO 


LI 


M 



Object Coding 
With Trace 



LIBF 
DC 



SIARX 
M 



M(1)=M(2)+M(3) 



LDX LI value D for literal subscript 2 

LD LI M 

LDX LI value D for literal subscript 3 

A LI M 

LDX H value D for literal subscript 1 

STO LI M 



LIBF 
DC 



Slft.RX 
M 



M(1)=N(1)+M(1) 



LDX 


LI 


va 


LD 


H 


N 


A 


LI 


M 


STO 


LI 


M 



LI value D for literal subscript 1 



LIBF 
DC 



SIARX 

M 



Statement Function Statements 



A=JOE(B+C,D)+E 



LIBF 


FLD 


DC 


B 


LIBF 


FADD 


DC 


C 


LIBF 


FSTO 


DC 


GTl 


CALL 


JOE 


DC 


GTl 


DC 


D 


LIBF 


FLOAT 


LIBF 


FADD 


DC 


E 


LIBF 


FSTO 


DC 


A 



LIBF 



SFAR 
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Source Coding 



A=C(B, .5)+E 



Object 


Coding 


CALL 


C 


DC 


E 


DC 


ADR I 


LIBF 


FADD 


DC 


i; 


LIBF 


FSTO 


DC 


A 



Object Coding 
With Trace 



LIBF 



SFAR 



ADRl 



DC 



.5 



Call Statements 



CALL XY 



CALL 



XY 



CALL YZ (A(2),A(I),B,C*D) 





LIBF 




SUBSC 




DC 




SGTl 




DC 




value D , for array A 
4 




DC 




I 




DC 




value D for array A 




LIBF 




FLD 




DC 




C 




LIBF 




FMPY 




DC 




D 




LIBF 




FSTO 




DC 




GTl 




LDX 


LI 


value D^ for literal s 
4 




MDX 


LI 


A 




NOP 








STX 


LI 


ADRl 




LDX 


11 


SGTl 




MDX 


LI 


A 




NOP 








STX 


LI 


adr;; 




CALL 




YZ 


ADRl 


DC 







ADR2 


DC 









DC 




B 




DC 




GTl 
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Source Coding 

CALL YZ(A(I),B,C*D) 



ADRl 



Object Coding 


LIBF 




SUBSC 


DC 




SGTl 


DC 




value D for array A 


DC 




I 


DC 




value D for array A 


LIBF 




FLD 


DC 




C 


LIBF 




FMPY 


DC 




D 


LIBF 




FSTO 


DC 




GTl 


LDX 


11 


SGTl 


MDX 


LI 


A 


NOP 






STX 


LI 


ADRl 


CALL 




YZ 


DC 







DC 




B 


DC 




GTl 



Object Coding 
With Trace 



DO and CONTINUE Statements 



DO 10I=J,K 



ADRl 



10 CONTINUE 



DO 10I=J,K,M 



10 CONTINUE 



ADRl 



LD L J 

STO L I 

(next sequential instruction) 



MDX 


L 


1,1 


MDX 




* 


LD 


L 


I 


S 


L 


K 


BSC 


L 


ADR1,+ 


LD 


L 


J 


STO 


L 


I 



(next sequential instruction) 
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Source Codin;; 



Object CodlnR 


LD L 


I 


A L 


M 


STO L 


I 


S L 


K 


BSC L 


ADR1,+ 



Object Coding 
With Trace 



GO TO Statement 



GO TO 111 



BSC 



ADRl 



ADRl (coding generated from statement 111) 



Computed GO TO Statement 



GO TO (111,112,113),! 



LOCI 



LDX 


11 


I 


BSC 


U 


LOCIU 


DC 




ADRl 


DC 




ADR2 


DC 




ADR3 



LIBF 



SGOTC) 



ADRl 



(coding generated from statement 111) 



ADR2 



(coding generated from statement 112) 



ADR3 



(coding generated from statement 113) 



IF Statements 



IF (I) 111,112,113 



LD 


L 


I 


BSC 


L 


ADR1,+Z 


BSC 


L 


ADR2,+- 


BSC 


L 


ADR3,-Z 



LIBF SIIF 

BSC L ADR1,+Z 

BSC L ADR2,+- 

BSC L ADR3,-Z 



ADRl (coding generated from statement 111) 



ADR2 (coding generated from, statement 112) 



ADR3 (coding generated from statement 113) 
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Source Coding 

IF (A) 111,100,113 
100 CONTINUE 



Object 


Codir 


'g 


LIBF 




ELD 


DC 




A 


LD 


3 


+126 


BSC 


L 


ADR1,+Z 


BSC 


L 


ADR2,-Z 



Object Coding 
With Trace 



LIBF 



SFIF 



STOP Statement 



ADRl (coding generated from statement 111) 



ADR2 (coding generated from statement 113) 



IF(A+I) 100,111,100 
100 CONTINUE 



LD 


L 


I 


LIBF 




FLOAT 


LIBF 




FADD 


DC 




A 


LD 


3 


+126 


BSC 


L 


ADR1,+- 



LIBF 



SFIF 



ADRl (coding generated from statement 111) 



IF (I) 111,111,112 



LD L I 

BSC L ADRl , + 

BSC L ADR2 , -Z 



LIBF SIIF 

BSC L ADR1,+ 

BSC L ADR2,-Z 



PAUSE Statement 



ADRl (coding generated from statement 111) 



ADR2 (coding generated from statement 112) 



PAUSE 11 



LIBF 
DC 



PAUSE 
ADRl 



ADRl 



DC 



/n 



STOP 21 



ADRl 



LIBF 
DC 



DC 



STOP 
ADRl 

/21 
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Source Coding 



Object Coding 



RETURN Statements 



for (REAL) FUNCTION subprogram 

where tlie subprogram name is COMP 

for (INTEGER) FUNCTION subprogram 

where the subprogram name is ICOMP 
for SUBROUTINE subprogram 



LIBF FLD 

DC COMP 

BSC I addre:JS of subprogram linkword in transfer vector 

tD L ICOMP 

BSC I address of subprogram linkword in transfer vector 

BSC I address of subprogram linkword in transfer vector 



END Statement 



The END statement produces no object coding. 



I/O Initial i zation Calls 

The following coding for the initialization of the FORTRAN I/O subroutines at execution time is generated and inserted into the program 
by the compiler. 



LIBF 


UFIO (see Note 2) 


DC 


/OOOX 


LIBF 


SDFIC (see Note 3) 


DC 


/OOOX 


LIBF 


SI-IO (see Note 4) 


DC 


/()0Y>: 


DC 


/0016 


LIBF 


TYPEZ or LIBF WRTYZ (see Note 5) 


DC 





LIBF 


CARDZ (see Note 6) 


DC 





LIBF 


PRNTZ 


DC 





LIBF 


PAPTZ 


DC 





LIBF 


PRNZ 


DC 





LIBF 


Tf FEZ (see Note 5) 


DC 





LIBF 


WCHRI 


DC 





LIBF 


READZ 


DC 





LIBF 


FNCHZ (see Note 6) 


DC 





LIBF 


F1,D (or ELD) 


LIBF 


FSTO (or ESTO) 
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Source Coding 



Object Coding 



Non -D isk I/O Statements 



READ (N,101)A,I 



READ (N,101)X 

where X is dimensioned 



READ(N,101)(X(I), 1=1,5) 



ADR3 



ADRl 
ADR2 



LIBF 




SRED 


DC 




N 


DC 




101 


LIBF 




SIOF 


DC 




A 


LIBF 




SIOI 


DC 




I 


LIBF 




SCOMP 


LIBF 




SRED 


DC 




N 


DC 




101 


LIBF 




SIOAF 


DC 




X 


DC 




number of elements in array X 


LIBF 




SCOMP 


LIBF 




SRED 


DC 




N 


DC 




101 


LD 


L 


ADRl 


STO 


L 


I 


LIBF 




SUBSC 


DC 




SGTl 


DC 




value D for array X 


DC 




I 


DC 




value D for array X (see Note 


LIBF 




SIOFX 


DC 




X 


MDX 


L 


1,1 


LD 


L 


I 


S 


L 


ADR2 


BSC 


L 


ADR3,+ 


LIBF 




SCOMP 


DC 




1 


DC 




5 



Appendix A . Examples of FORTRAN Object Coding 319 



Source Coding 



WRITE(N,101)A,I 



Object 


Coding 


LIBF 


SWRT 


DC 


N 


DC 


101 


LIBF 


SIOF 


DC 


A 


LIBF 


SIOI 


DC 


I 


LIBF 


SCOMf 



Unformatted I/O Statements 



READ (N) A,I 



READ (N) 



WRITE (N) A,I 



LIBF 


UP£D 


DC 


N 


LIBF 


UIOF 


DC 


A 


LIBF 


UIOI 


DC 


I 


LIBF 


UCOMl' 


LIBF 


URED 


DC 


N 


LIBF 


UCOMP 


LIBF 


UWRT 


DC 


N 


LIBF 


UIOF 


DC 


A 


LIBF 


UIOI 


DC 


I 


LIBF 


UCOMP 



Disk I/O State ments 



READ (I 'K) A, I 



LIBF 


SDRED 


DC 


I 


DC 


K 


LIBF 


SDF 


DC 


A 


LIBF 


SDI 


DC 


I 


LIBF 


SDCX)M 
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Source Coding 

WRITE (2 IBASE+IDISP (K)) A,B,X 
where A, B, and X are dimensioned 



FIND (J,K) 



Object 


Coding 


LIBF 




SUBSC 


DC 




SGTl 


DC 




value D for array IDISP 


DC 




K 


DC 




value D for array IDISP (see Note 1) 


LD 


L 


IBASE 


A 


LI 


IDISP 


STO 




GTl 


LIBF 




SDWRT 


DC 




TWO 


DC 




GTl 


LIBF 




SDAF 


DC 




A 


DC 




number of elements in array A 


LIBF 




SDAF 


DC 




B 


DC 




number of elements in array B 


LIBF 




SDAF 


DC 




X 


DC 




number of elements in array X 


LIBF 




SDCOM 


LIBF 




SDFND 


DC 




J 


DC 




K 



Manipulative I/O Statements 



BACKSPACE I 



REWIND 10 



LIBF 


BCKSP 


DC 


I 


LIBF 


REWND 


DC 


ADRl 



ADRl 



DC 



10 



END FILE 10 



LIBF 
DC 



EOF 
ADRl 



ADRl 



DC 



10 
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NOTES: 

1 . Tagged to indicate the end of the subscript argument list. 

2. The U.BF UFIO and its parameter are inserted only if unformatted I/O statements are encountered in the program. X is the integer size 
and precision indicator. 

3. The LIBF SDFIO and its parameter are inserted only if the Disk indicator (bit 8) in the IOCS word is on. X is the Integer size and 
precision indicator. 

4. The LIBF SFIO, its parameters, and the LIBF table are inserted ooly if indicators other than the Disk indicator in the IOCS word are on. 
Y is the trace device indicator. X is the integer size and precision indicator. The DC /0016 provides the number of words from the 
LIBF SFIO to the first word following the LIBF table, inclusive. 

A UBF to a FORTRAN I/O device subroutine is present in tlie LIBF table for each device indicated by a bit in the IOCS word. If a device 
is not indicated by a bit in the IOCS word, the LIBF is replaced by a DC 0. 

5. If "KEYBOARD" is specified, tiie LIBF TYPEZ is inserted; if "TYPEWRITER" is specified, the LIBF WRTYZ is inserted. 

6. If "CARD" is specified, the LIBF PNCHZ is not inserted; if "1442 PUNCH" is specified, the LIBF CARDZ is not inserted. 
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APPENDIX B. LISTINGS 



This appendix contains 1) assembly listings of the 
Resident Monitor, including DISKZ , and the Cold 
Start Program, 2) listings describing the contents of 
DOOM and the Resident Image, 3) the equivalences 
used throughout the monitor system programs, and 
4) a cross-reference listing of all the symbols used 
in the above items. 



The contents of this appendix are not to be 
construed as an external specification, i.e., the 
locations in these listings may be changed. $PRET, 
$OREQ, $EXIT, $LINK, and $DUMP are the only 
guaranteed locations. 

Note that in the listings the character is 
printed as ', and the character is printed as =. 



AnOR REL OBJECT ST. NO. 
0001 

000? 

0003 

0004 

0005 

0006 

0007 

0008 

0C09 

0010 

0011 

0012 

0013 

0014 

00!5 

0016 

0017 

0018 

0019 

00?0 

0021 

0022 

0023 

0024 

0025 

00 26 

0027 

0078 

0029 

0010 

0031 

0032 

0033 

00 M 

00 35 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 

0061 

0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 



LABEL OPCO FT OPERANDS 



RLTV AOOR* 

♦ 

0-3 * 

4-5 * 

6 ♦ 

7 * 



SYMBOL* DESCRIPTION 



8 
9 

10 

11 

17 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

78 

29 

30 

31 

37 

33 

33-34 

35 



37 

38 



* 41 



49 

50 
51 
52 
53 
54 
55 
56 



»NAHE 
iOBCI 
#FCNT 

»SYSC 
*JBSW 



* #CBSM 



#LCNT 
»HPSH 

»M0F1 
#MDF2 
«NCNT 
#ENTY 
#RP67 
UTOOR 
#FRDR 
#FHQL 
KFSZE 
fUHQL 
#USZE 
#DCSW 
#PIQO 
#PPTR 
mCIAD 
(lACIN 
#GRPH 
*GCNT 
«LOSH 
#X3SH 
#ECNT 

«ANDU 



* 
* 

* #BNOU * 

* * 

* * 



* *FPAD ♦ 

* * 



* * 

* * 

* #PCID * 



* mCTDN ♦ 



RESERVED FOR EVEN BOUNDARIES 
NAME OF PROGRAM/CORE LOAD 
BLOCK COUNT OF PROG/CORE LOAD 
♦FILES SWITCH — ZERO MEANS NO 
FILES HAVE BEEN EQUATED 
SYS/NON-SYS CARTRIDGE INDR 
JOBT SWITCH — NON-ZERO MEANS 
TEMPORARY MODE 
CLB-RETURN-TO-OUP SWITCH — 
ZERO=CLB RETURN TO SUPV 
NO. OF LOCALS 

CORE MAP SWITCH — ZERO MEANS 
DO NOT PRINT A CORE HAP 
NO. OUP CTRL RECDS (MQDIF) 
ACDR OF MOOIF BUFFER 
NO. OF NOCALS 

RLTV ENTRY AOOR OF PROGRAM 
1442-5 SW (0#1442-5 ON SYSTEM 
•TO* WORKING STG DRIVE CODE 
•FROM" WORKING STG DRIVE CODE 
ACDR OF LARGEST HOLE IN FXA 
BLK CNT OF LARGEST HOLE IN FXA 
ADDR OF LARGEST HOLE IN UA 
BLK CNT OF LARGEST HOLE IN UA 
DUP CALL SW — NON-ZERO#DUP CALL 
PRINCIPAL I/O DEVICE INDICATOR 
PRINC. PRINT DEVICE INDICATOR 
RLTV ADDR IN "STRT OF CIL ADDR 
AVAILABLE CARTRIDGE IN0ICAT2-2 
2250 INDICATOR 2G2 

NO. G22S0 RECORDS 2G2 

LOCAL-CANNOT-CALL-LOCAL SW 2-2 
SPECIAL ILS SWITCH 2-2 

NO. OF *€QUAT RCDS 2-4 

RESERVED FOR FUTURE USE 2-2 
1*BL0CK ADDR OF END OF USER 
AREA (ADJUSTED) LOGICAL OR 
l+BLOCK ADDR OF END OF USER 
AREA (ADJUSTED) LOGICAL OR I 
1«-8L0CK ADDR OF END OF USER 
AREA (ADJUSTED) LOGICAL DR 2 
1+BLOCK ADDR OF END OF USER 
AREA (ADJUSTED) LOGICAL OR 3 
1+8L0CK ADDR OF END OF USER 
AREA (ADJUSTED) LOGICAL DR 4 
1+BLOCK ADDR OF END OF USER 
AREA (BASE) LOGICAL DRIVE 
H-BLOCK ADDR OF END OF USER 
AREA (BASE) LOGICAL DRIVE 1 
1+BLOCK ADDR OF END OF USER 
AREA (BASE) LOGICAL DRIVE 2 
1+BLOCK ADDR OF END OF USER 
AREA (BASE) LOGICAL DRIVE 3 
1+BLOCK ADDR OF END OF USER 
AREA (BASE) LOGICAL DRIVE 4 
FILE PROTECT ADDR, LOGICAL 
DRIVE (BASE) 
FILE PROTECT ADDR, LOGICAL 
DRIVE 1 (BASE) 
FILE PROTECT ADDR. LOGICAL 
DRIVE 2 (BASE) 
FILE PROTECT ADOR, LOGICAL 
DRIVE 3 (BASE) 
FILE PROTECT ADDR. LOGICAL 
DRIVE 4 (BASE) 
CARTRIDGE lOt PHYSICAL DRIVE 



CARTRIDGE ID, 

CARTRIDGE ID, 
CARTRIDGE 
CARTRIDGE 

CARTRIDGE ID, 

CARTRIDGE ID, 



ID, 

ID, 



PHYSICAL DRIVE 
PHYSICAL DRIVE 
PHYSICAL DRIVE 
PHYSICAL DRIVE ' 
LOGICAL DRIVE 
LOGICAL DRIVE 1 



IC/SEQNO 

PMNOOOIO 
PMN00020 
PMNOCOaO 
PMN00040 
PMN00050 
PMN00060 
PNN00070 
PMN00080 
PHN00090 
PHNOOIOO 
PMNOOllO 
PMN00120 
PMN00130 
PMN00140 
PHN00150 
PMN00160 
PMN00170 
PHN00180 
PMN00190 
PMN00200 
PMN00210 
PMN00220 
PMN0023O 
PMN00240 
PMN00250 
PMN00260 
PMN00270 
PMN00280 
PMN00290 
PMN00300 
PMN00310 
PMN00320 
PMN00330 
PMN00340 
PMN00350 
PMN00355 
PMN00360 
PMN00370 
PHN00380 
PMN00390 
PMN00400 
PMN00410 
PMN00420 
PMN00430 
PMN00440 
PMN00450 
PMN00460 
PMN00470 
PNN00480 
PMN00490 
PHN00500 
PMN00510 
PMN0052O 
PMN00530 
PMN00540 
PMN00550 
PMN00560 
PHN00570 
PMN0C580 
PHN00590 
PMN00600 
PMN00610 
PMN00520 
PMN006 30 
PMN00640 
PMN00650 
PMN00660 
PHN00670 
PMN006S0 
PMN00690 
PMN00700 
PMN00710 
PMN00720 
PMN00730 
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AOnR REL OBJECT ST. NO.. 



LABEL OPCO FT OPERANDS 



0075 




57 








0076 




58 








0077 




59 








007B 




60 




«CIBA 




0079 




61 








00 80 




6Z 








0081 




63 








008? 




6* 








0083 




65 




#SCRA 




008'i 




66 








0085 




67 








0086 




68 








0087 




69 








0088 




70 




#FMAT 




C08S 




71 








oogo 




7Z 








0091 




73 








009? 




74 








C093 




75 




UFLET 




C09* 




76 








CO 95 




77 








0096 




78 








0097 




79 








C098 




SO 




iULET 




0099 




81 








0100 




a? 








0101 




83 








0102 




8* 








0103 




85 




fMSCT 




0!04 




86 








0105 




87 








0106 




88 








0107 




89 








oioa 




90 




fCSHN 




0109 




91 








0110 




92 








0111 




93 








oil? 




94 








0113 




95-319 









lO/SEQNO 

CARTRIDGE ID, LOGICAL DRIVE 2 PHN00740 
CARTRIDGE ID, LOGICAL DRIVE 3 PMN00750 
CARTRIDGE 10, LOGICAL DRIVE 4 PMN00760 
SCTR ADDR OF CIB, LOGICAL OR PMN00770 
SCTR ADDR OF CIB, LOGICAL DR I PMN0078O 
SCTR ADDR OF CIB, LOGICAL DR 2 PMN00790 
SCTR ADDR OF CIB, LOGICAL OR 3 PMN00800 
SCTR AOOR OF CIB, LOGICAL DR 4 PMN00810 
SCRA, LOGICAL DRIVE PMN00820 

SCRA, LOGICAL DRIVE 1 PMN00830 

SCRA, LOGICAL DRIVE 2 PHN0O84O 

SCRA, LOGICAL DRIVE 3 PWNC0850 

SCRA, LOGICAL DRIVE 4 PHN00860 

FORMAT OF l»ROG IN HS, DRIVE PMN00870 
FORMAT OF l»RQG IN MS, DRIVE 1 PMN00880 
FORMAT OF l>ROG IN WS, DRIVE 2 PMN00890 
FORMAT OF PROG IN MS, DRIVE 3 PMN00900 
FORMAT OF PROG IN WS, DRIVE 4 PHN009IO 
FLET SCTR ADDR, LOGICAL OR PMN00920 
FLET SCTR ADDR, LOGICAL OR 1 PNN00930 
FLET SCTR ADDR, LOGICAL DR 2 PMN00940 
FLET SCTR ADDR, LOGICAL DR 3 PMN00950 
FLET SCTR ADDR, LOGICAL OR 4 PMN00960 
LET SCTR AOOR, LOGICAL DR PMN00970 
LET SCTR AOOR, LOGICAL DR 1 PMN00980 
LET SCTR AOOR, LOGICAL DR 2 PMN00990 
LET SCTR ADDR, LOGICAL DR 3 PHNOIOOO 
LET SCTR ADDR, LOGICAL OR 4 PMNOIOIO 
BLK CNT OF PROG IN HS, DRIVE PMN01020 
BLK CNT OF PROG IN MS, DRIVE 1 PMNOI030 
BLK CNT OF PROG IN HS, DRIVE 2 PMN01040 
BLK CNT OF PROG IN WS, DRIVE 3 PNN0I050 
BLK CNT OF PROG IN HS, DRIVE 4 PMN01060 
SCTR CNT CUSHION, LOGICAL DR PMN01070 
SCTR CNT CUSHION, LOGICAL DR 1 PMN01080 
SCTR CNT CUSHION, LOGICAL DR 2 PMN01090 
SCTR CNT CUSHION, LOGICAL OR 3 PHNOllOO 
SCTR CNT CUSHION, LOGICAL OR 4 PMNOlllO 
RESERVED FOR FUTURE USE PMN01120 



RFSIrtENT MONITOR 



AOOR BEL OBJECT ST. NO. 



LABEL OPCD FT OPERANDS 



lO/SEQNO 



0115 
0116 
0117 
0118 
0119 
0120 
0121 
0122 
0123 
0124 
0175 
0126 
0127 
0128 
0129 
0130 
0131 
013? 
0133 
0134 
0135 
0136 
0137 
0138 
0139 
0140 
0141 
0142 
0143 
0144 
0145 
0146 
01 47 
0148 
0149 
0150 
0151 
0152 
0153 
0154 
0155 
0156 
0157 
0158 
0159 
0160 
0161 
0162 
0163 



* * 
♦STATUS-VERSION 2, MODIFICATION 4 * 

* * 
♦FUNCTION/OPERATION- * 

* THIS SECTION ALHAVS REMAINS IN CORE. IT ♦ 

* IS COMPRISED OF THE COMMUNICATIONS * 

* AREA (COMMA), THE SKELETON SUPERVISOR, AND * 

* A DISK 1/0 SUBROUTINE, NOMINALLY DISKZ. CTHE * 

* FIRST TWO OF THESE SECTIONS ARE INTERMIXED.) * 

* COMMA CONTAINS THE SYSTEM PARAMETERS REOUIR- * 

* ED TO FETCH A CORE LOAD IN CORE IMAGE FOR- * 

* HAT. THF SKFLETON SUPERVISOR PROVIDES IN- * 

* STRUCTIONS FOR INITIATING A CALL EXIT, A * 

* CALL LINK, A OUMP-TO-PRI NTER OR A CALL TO THE * 

* AUXILIARY SUPERVISOR. IN ADDITION, THE SKELE-* 

* TON SUPERVISOR CONTAINS SEVERAL TRAPS FOR CER-* 

* TAIN I/O FUNCTIONS/CONDITIONS. THE DISK I/O ♦ 

* SECTION CONSISTS OF A SUBROUTINE FOR READING * 

* FROM OR WRITING ON A DISK CARTRIDGE ON A * 

* GIVEN LOGICAL DISK DRIVE. * 

* * 
♦ENTRY POINTS- * 

* * *PRE1-A TRAP FOR PREOPERATIVE I/O ERRORS. * 

* THE CALLING SEQUENCE IS » 

* BSI L SPRET * 

* * SPSTX~A POSTOPERATIVE ERROR TRAP FOR I/O * 

* DEVICES ON LEVEL X (X|I1,2,3,0R 4). • 

* THE CALLING SEQUENCE IS * 

* BSI L »PSTX * 

* * tSTOP-THE PROGRAM STOP KEV TRAP. • 

* * JEXIT-THE ENTRY POINT FOR THE EXIT/CALL * 

* EXIT STATEMENT. THE CALLING SEQUENCE IS* 

* LOX JEXIT ♦ 

* * JLINK-THE ENTRY POINT FOR THE LINK/CALL * 

* LINK STATEMENT. THE CALLING SEQUENCE IS* 

* BSI L *LINK * 

* * *DUMP--THE ENTRY POINT FOR THE DUMP/POMP • 

* STATEMENT. THE CALLING SEQUENCE IS * 

* BSI L $DUHP ♦ 

* DC FORMAT * 

* DC LIMIT! » 

* DC LIMIT2 » 

* WHERE LIMIT! AND LIMIT? ARE THE LIMITS * 

* BETWEEN WHICH THE DUMP IS TO OCCUR, AND* 

* FORMAT IS A CODE INDICATING THE FORMAT » 

* OF THE DUMP. IF FORMAT IS NEGATIVE, * 

* THE AUXILIARY SUPERVISOR IS FETCHED * 

* AND CONTROL PASSED TO IT. * 



PMN01140 
PHN01150 
PMN01160 
PMN01170 
PMN01180 
PMN01190 
PMN01200 
PMN01?10 
PMN01220 
PMN01230 
PHN01240 
PMN01250 
PMN01260 
PMN01270 
PMN012aO 
PHN01290 
PMN01300 
PMN01310 
PMN01320 
PHN01330 
PMN01340 
PMN01350 
PMN01360 
PMN013TO 
PMN01380 
PMN01390 
PMN01400 
PMN01410 
PMN01420 
PMN01430 
PMN01440 
PMN01450 
PHN01460 
PHN01470 
PMN01480 
PMN01490 
PMN01500 
PMN01510 
PMN01520 
PMN01530 
PMN01540 
PHNQ1550 
PMN0156O 
PHNG1570 
PMN01580 
PHN01590 
PHN01600 
PMN01610 
PMN01620 



324 



AOOR REL OBJECT 



LABEL OPCD FT OPERANOS 



ID/SEQNO 



016'i 
0165 
0166 
0167 
0168 
0169 
0170 
0171 
0177 
0173 
017A 
0175 
0176 
0177 
0178 
0179 
0180 
0181 
019? 
0183 
018'i 
0ia5 
0186 
C187 
0188 
01 S"? 
0190 
0191 
0192 
0193 
01 9« 
0195 
0196 
0197 
0198 
019^ 

o?oo 

0201 
020? 
0203 
0204 
0205 
0706 
0207 
0208 
0209 
0210 
0211 
0212 
0213 
021« 
0215 
0216 
0717 
0218 
0219 
0220 
0271 
0222 
0223 
022* 
0225 
0226 
0227 
0228 
022° 
0730 
0231 
0232 
0233 
023'i 
0235 
0236 
0237 
0238 
0739 
0240 
0741 
0242 
0743 
0244 
0245 
0746 



OZOOO-ENTERED WHEN THE CALLER WISHES TO 
PERFORM A DISK I/O OPERATION. THE 
CALLING SEQUENCE VARIES WITH THE 
VERSION OF THE DISK I/O SUBROUTINE. 
tI200/$I400-ENTERED WHEN THE OPERATION- 
COMPLETE INTERRUPT OCCURS ON 
LEVEL 2/4. 



♦INPUT-N/A 



*OUTPUT-HORDS 
* DUMP 



6-4090 SAVED ON THE GIB ON A CALL 



♦EXTERNAL R6FERENCES-N/A * 

* * 
♦EXITS- * 

* * NORMAL * 

* *THE EXITS FROM THE SUBROUTINES AT $PRET * 

* »PSTl, »PST2, $PST3, $PST4, ANO $STOP * 

* ARE BRANCH INSTRUCTIONS FOLLOWING A * 
« WAIT INSTRUCTION. tSTOP TURNS OFF IN- » 

* TERRUPT LEVEL 5 AFTER THE START KEV IS * 

* OEPRESSEO. * 

* *THE EXITS FROM *EXI T, $L I NK, AND $DUMP ARE * 

* TC THE CORE IMAGE LOADER, PHASE 1, * 

* AFTER THAT PHASE HAS BEEN FETCHED. * 

* *THE EXIT FROM DZOOO IS BACK TO THE * 
» CALLER AFTER THE REQUESTED DISK OPERA- * 
« TION HAS BEEN INITIATED. * 

* *THE EXITS FROM $I200/»I400 ARE BACK TO * 

* THE ADDRESSES FROM WHICH THE DISK OP- * 

* ERATION COMPLETE INTERRUPT OCCUREO * 

* AFTER THE INTERRUPT HAS BEEN SERVICED * 

* BY THE APPROPRIATE ISS. * 

* * ERROR-N/A * 

* * 
♦TABLES/WORK AREAS- « 

* * $ACOE * 

* « tCH12 * 

* * *CILA * 

* * $CLSW * 

* * $COMN ♦ 

* * tCORE * 

* * »CTSV( * 

* * $CXR1 * 

* * tCYLN * 

* ♦ $DADR ♦ 

* * »DBSV * 

* * iCCYL * 

* * tOMPF * 

* * »OREQ * 

* * *FPAD * 

* * »GCOM 2G2 * 

* * tGRIN 7G7 * 

* * $HA5H * 

* * iIBT2 * 

* * $IBT4 * 

* * *IBSY * 

* * SIOCT * 

* * SKCSW * 

* « tLAST * 

* * $N0UP * 

* * $NXEQ » 

* * »PBSY * 

* * $PGCT * 

* * *PHSE * 

* ♦ tRMSW ♦ 

* * »SCAT 2-4 * 

* * $SNLT * 

* * $UFia * 

* * $ULET * 

* « »MRD1 * 

* * tWSDR * 

* « $XR3X 2-2 * 

* * 
♦ATTRIBUTES-REUSABLE * 
« * 
♦NOTFS- ♦ 

* THERE ARE WAIT INSTRUCTIONS AT $PRET+l, ♦ 

* $ST0P+1, ANO »PSTX*1. DEPRESSING THE START ♦ 

* KEY WILL RETURN CONTROL TO THE CALLER IN ALL ♦ 

* CASES. ♦ 
*************************************************** 



PMN01630 
PMN01640 
PMN01650 
PHN01560 
PMN01670 
PHN01680 
PMN01690 
PMN01700 
PNN01710 
PMN01720 
PNN01730 
PMN01740 
PMN01750 
PNN01760 
PMN01770 
PMN01780 
PMN01790 
PMN01800 
PHN01810 
PMN01820 
PMN01830 
PKN01840 
PMN01850 
PMN0ia60 
PMN01870 
PMN01880 
PMN01890 
PMN01900 
PHN01910 
PMN01920 
PMN01930 
PMN01940 
PMN01950 
PMN01960 
PMN01970 
PHN019aO 
PMN01990 
PMN02000 
PMN02010 
PMN07020 
PMN02030 
PMN02040 
PMN07050 
PMN02060 
PMN02070 
PMN02080 
PHN07100 
PMN02110 
PMN02120 
PMN02130 
PMN02140 
PMN02150 
PMN07160 
PMN02170 
PMN07180 
PMN07I90 
PMN02?00 
PMN02710 
PMN07770 
PMN02730 
PMN02240 
PMN02750 
PMN02260 
PMN02270 
PMN0?2a0 
PMN02790 
PMN02300 
PMN02305 
PMN02310 
PMN07320 
PMN02330 
PMN02340 
PMN02350 
PMN02360 
PMN07370 
PMN02380 
PMN02390 
PMN02400 
PMN02410 
PMN02420 
PHN02430 
PMN02440 
PMN02450 
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AODR REL OBJECT ST. NO. 



LABEL OPCD FT OPERANDS 



lO/SEQNQ 



n?80 






0004 





OFFA 


0005 





0000 


0006 





0000 


0007 





0000 


0008 





0000 


000"? 





0000 


OOOA 





0083 


OOOB 





0000 


OOOC 





00C4 


0000 





00") 1 


OOOF 





0000 


OOOF 





0000 


0010 





0000 


noil 





0000 


0012 





0000 


0013 





0000 


0014 




OOOC 



0028 0000 

0029 3000 
002A 00 4C800028 



oo2r. 





0000 


oo'n 





0000 


002E 





0000 


002F 





0000 


0030 





0000 


0031 





0000 


0032 





0000 


0033 





0000 


0034 





0000 


0035 





0000 


0036 





0000 


0037 





0000 



0038 7019 



0039 





0000 


003 A 





19 10 


0038 





7017 


003C 




0000 


003C 





0001 


0030 





0004 


003F 





FFFF 



003F 0000 

0040 08 09 

0041 4009 

0042 6904 

0043 00 C4a0003F 

0045 D003 

0046 CSF5 

0047 00 440000F2 
0049 COF? 
004A 7008 



0248 


* PROVIDE 


PARAMETERS FOR SVSTEH LOADER 


PMN02470 


0'49 


* 






PMN02480 


02 50 




A8S 




PMN02490 


0251 




ORG 


4 


PMN02500 


025? 




nc 


4095-» HO CNT FOR WRITING CORE ON CIB 


PMN02510 


0253 


tCIBA 


DC 


»-♦ SCTR ADOR OF THE CIB 


PMN0Z5 20 


0254 


»CH12 


DC 


*-• ADOR OF CHA'^NEL 12 INDICATOR 


PMN02530 


0255 


»CQMN 


DC 


*-♦ LENGTH OF COMMON UN WORDS! 


PHN02540 


0256 


* 






PMN02550 


0257 


• ULTIMATE 


RESIDENCE OF THE INTERRUPT TV 


PMN02560 


0258 


* 






PMN02570 


0259 


tLEVO 


DC 


*-* LEVEL BRANCH ADDRESS 


PMN02580 


0250 


»LFVl 


DC 


*-* LEVEL 1 BRANCH ADDRESS 


PHN02590 


0261 


$LEV2 


DC 


tI200 LEVEL 2 BRANCH ADOR 


PMN07600 


0262 


$LEV3 


DC 


*-* LEVEL 3 BRANCH ADDRESS 


PMN02610 


0263 


*LEV4 


DC 


$1400 LEVEL 4 BRANCH ADOR 


PMN02620 


0264 


»LEV5 


OC 


SSTOP LEVEL 5 BRANCH AODR 


PHN07630 


0265 


* 






PMN02640 


0766 


* 






PHN02650 


0267 


SCORE 


DC 


»-* SUE OF CORE, E.G., 4096-4K 


PMN02660 


0268 


$CTSW 


DC 


*-* CONTROL RECORD TRAP SWITCH 


PHN02670 


0269 


SDAOR 


DC 


*-• SCTR ADOR OP PROG TO BE LOADED 


PHN02680 


0270 


*SCAT 


OC 


*-* NON ZERO=SCA INTRPT PNONG 2-4 


PMN02690 


0271 


«DREQ 


DC 


*-* INO. FOR REQUESTED VERSION OKI/0 


PHN02700 


027? 


$IBSY 


DC 


*-♦ NON-ZERO IF CO/PAP TP OEV, BUSY 


Pf^N02710 


0273 


$HASH 


BSS 


E 12 WORK AREA 


PMN02720 


0274 


* 






PMN02730 


(1275 


* 






PMN02740 


0276 


(SCAN 


BSS 


8 H3? SCAN AREA 32 


PMN02750 


0277 


* 






PMN02760 


0278 


* 






PMN02770 


0279 


• 






PMN02780 


0780 


* TRAP FOR 


PREOPERATIVE I/C ERRORS 


PHN02790 


0281 


• 






PMN02800 


0282 


»PRET 


DC 


*-* ENTRY POINT 


Pt<N028l0 


0283 




WAIT 


WAIT TIL START KEY PUSHED 


PMN02820 


0284 




BSC 


I »PRET RETURN TO CALLER 


PMN02830 


028S 


* 






PHN02840 


0286 


* 






PMN02850 


0287 


tIREO 


OC 


*-* AOOR OF INT REQUEST SUBROUTINE 


PMN02860 


0788 


$ULET 


DC 


•-* ADOR OF LET,, LOGICAL OR 


PHN02870 


0289 




OC 


*-• ACOR OF LET„ LOGICAL DR I 


PMN02880 


C290 




OC 


*-* AOOR OF LET, LOGICAL DR 2 


PMN0289O 


0291 




OC 


*-* ADOR OF LET, LOGICAL DR 3 


PMN02900 


0792 




DC 


*-» ACDR OF LET, LOGICAL DR 4 


PKN02910 


0293 


»IOCT 


OC 


♦-* ZERO IF NO I/O IN PROGRESS 50 


PMN02920 


0294 


tLAST 


DC 


*-* NON-ZERO WHEN LAST CARD SENSED 


PMN07930 


0295 


»NDUP 


DC 


*-* DO NOT DUP IF NON-ZERO 


PMN02940 


0296 


iNXFO 


DC 


*-* DO NOT EXECUTE IF NON-ZERO 


PMN02950 


0297 


iPBSV 


OC 


♦-* NON-ZERO WHEN PRINTER BUSY 


PMN02960 


0298 


tPGCT 


OC 


*-* PAGE NO. FOR HEADINGS 


PMN02970 


0799 


* 






PMN02980 


0300 


* CALL 


EXIT ENTRY POINT TO SKELETON SUPERVISOR 


PMN02990 


0301 


* 






PMN0 3000 


0302 


$EXIT 


MDX 


JSOOO BR TO FETCH CIL, PHASE 1 56 


PNN03010 


0303 


* 






PMN03020 


0304 


•*» CALL LINK ENTRY POINT 


PMN03030 


0305 


* 






PHN03040 


0306 


tLINK 


CC 


*-* ENTRY POINT 57 


PMN03050 


0307 




SRA 


16 


PMN03060 


0308 




MOX 


tSIOO BR TO FETCH CIL, PHASE 1 


PMN03070 


0309 




BSS 


E 


PMN03080 


0310 


»S900 


DC 


1 DISK PARAMETERS FOR SAVING CORE 


PHN03090 


0311 




DC 


$CIBA-1 »IN CONNECTION WITH DUMP 


PHN03100 


0312 


$S9I0 


DC 


-1 CALL EXIT INDICATOR 


PMN03110 


0313 


* 






PHN03120 


C314 


*•» SAVE 1ST 4K OF CORE ON THE CIB 


PMN03130 


0315 


* 






PMN03140 


0316 


$DUMP 


DC 


*-* ENTRY POINT 63 


PHN0315O 


0317 




STO 


tACEX SAVE ACCUMULATOR, EXTENSION 


PMN03180 


0318 




B5I 


«S250 CHK PNDNG INTRPT 2-4 


PMN03ia5 


0319 




STX 


1 $CXR1 SAVE XRl 


PMN03190 


0320 




LO 


I »DUMP 


PMN03200 


0321 




STO 


»DHPF SAVE DUMP FORMAT CODE 


PMN03210 


0322 




LDD 


*S900 


PMN03770 


0323 




SSI 


L DZOOO SAVE Wt)S 6-4095 ON CIB 


PHN03230 


0324 




LD 


SS900 


PMN03240 


0325 




NOX 


SSIOO BR TO FETCH CIL, PHASE I 


PMN03250 


0326 


* 






PMN03251 


03 77 


*** SUBR TO CHECK IF ANY INTRPT IS PENDING 


PMN0325Z 


032B 


* 






PMN03253 
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AOOR RFL OBJECT ST. NO. 



LABEL OPCD FT OPERANDS 



lO/SEQNO 



004B 0000 
OO-kC C0E5 
00*n E8C1 
00*E 00 *C20004C 
0050 00 4Ca0004B 



0052 COEB 

0053 00C2 

0054 00 65800039 

0056 ClOl 

0057 1800 
OOSB ClOO 

0059 00 65000000 
005B D8B9 
005C 40EE 
0050 COFC 
005E 1890 
005F 00 440000F2 
0061 *0E9 
*102 



0052 

0063 
0054 

0065 
006 8 

0071 
0072 

0072 
0073 
00 74 
0075 
0075 
0077 
0078 
0079 
007A 
007B 
00 7C 
0070 
007E 
007F 
0080 



0000 
0000 

000 3 
0009 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0000 

0000 
0000 



0081 0000 

0082 3000 

0083 00 4C800081 



0085 0000 
0085 3000 
0087 no 40.800085 



0089 0000 
008A 3000 
0088 00 40800089 



008D 0000 
OCBE 3000 
008F 00 4C80008D 



0091 0000 

0092 3000 

0093 00 4rr.00091 



0329 
0J30 
0331 
0332 
0333 
0335 
0336 
0337 
0338 
0339 
0340 
0341 
0342 
0343 
0344 
0345 
0346 
0347 
034B 
0349 
0350 
0351 
0352 
0353 
0354 
0355 
0356 
0357 
0358 
0359 
0360 
0361 
0352 
0353 
0364 
0365 
0366 
0357 
0368 
0369 
0370 
0371 
0372 
0373 
0374 
0375 
0376 
0378 
0379 
0380 
0381 
0382 
0383 
0384 
0385 
0386 
0387 
0388 
0389 
0390 
0391 
0392 
0393 
0394 
0395 
0396 
0397 
0398 
0399 
0400 
0401 
0402 
0403 
0404 
0405 
0406 
0407 



$S250 DC *-* ENTRY POINT 

$S300 LD SIOCT IS THERE INTRPT PNONC 

OR $SCAT •OR SCA INTRPT PNDNG 

BSC L tS300,Z *THEN BR, IF ALL INTRPT 

BSC I $S250 *IS SERVICEO-RETURN 



*♦♦ FETCH CORE IMAGE LOADER, PHASE 1 
* 

$S910 
SRMSW 
II «LINK 
1 1 

16 
1 



$3000 LO 
tSlOO STO 
LDX 
LD 
RTE 
LO 

* $S150»1 

$S1S0 LDX 

STD 

BSI 

LO 

$S200 SRT 

BSI 

BSI 

BSI 

* 

iGCOH DC 
SGRIN DC 
* 

BSS 
BSS 



SAVE EXIT-LINK-DUMP SWITCH 

LINK ADDR TO XRl 

FETCH 2ND WO OF LINK NAME 



FETCH 1ST WO OF LINK NAME 
CONTAINS ADDR LAST WD OF DISK I/O MINUS 3 
LI *-* ADDR END OF OKI/O-l TO XRl 

SAVE LINK NAME 
CHK ANY PNDNG INTRPT 



«-* 

»LKNM 

»S250 

SCILA 

15 

DZOOO 

$S250 

2 

*-* 
*-* 



FETCH CI LOADER, PHASE 
CHK DISK OP FINISHED 
BR TO CI LOADER, PHASE 



2-4 



2-4 
1 

2G2 



$FLSH 



$CWCT 



DC 

BSS 

DC 

DC 

DC 



GRAPHIC SUBR PACKAGE I NOR 
GRAPHIC INITLZN PROGRAM INOR 2G2 

2G2 

3 RESERVED FOR 2250 2G2 

9 PATCH AREA 

FLUSH-TO-NEXI-JOB SWITCH liFLUSH 



tCCAD 

$LSAD DC 

tOZlN DC 

tOCDE 

»PHSE 

tUFIO 

tWSDR 

$HR01 

$KCSM 

»UFDR 

»CPTR 

tll32 

$1403 



DC 
DC 
DC 
DC 
DC 
DC 
DC 
OC 

nc 

DC 



»-» 



»-» 
*-* 

♦-♦ 
*-♦ 
»-* 
*-• 
*-* 



WORD COUNT AND SECTOR ADDRESS 
♦FOR SAVING/RESTORING COMMON 
ADDR FOR SAVING/RESTORING COMMON 
SCTR ADDR OF 1ST LOCAL/SOCAL 
DISKZ/1/N INDICATOR <-t,0,*l) 
LOGICAL DRIVE CODE FOR PROGRAM 
NO. OF PHASE NOW IN CORE 
*-» UNFORMATTED I/O RECORD NO- 
*-* WORKING STORAGE DRIVE CODE 
♦-* LOADING ADDR OF THE CORE LOAD 
*-* 1 If KB,CP BOTH UTILIZED 
*-* UNFORMATTED I/O DRIVE CODE 
♦-♦ CHANNEL 12 INDICATOR FOR CP 
*-* CHANNEL 12 INDICATOR FOR 1132 
*-* CHANNEL 12 INDICATOR FOR 1403 

* TRAP FOR POSTOPERATIVE I/O ERRORS ON LEVEL I 
* 

tPSTl OC *-* ENTRY POINT 

WAIT 

BSC I $PST1 RETURN TO DEVICE SUBROUTINE 
♦ 

♦ TRAP FOR POSTOPERATIVE I/O ERRORS ON LEVEL 2 
* 

$PST2 DC *-* ENTRY POINT 
WAIT 
BSC I *PST2 



RETURN TO DEVICE SUBROUTINE 



* TRAP FOR POSTOPERATIVE I/O ERRORS ON LEVEL 3 



*PST3 DC 

WAIT 
BSC 

* 

* TRAP FDR 

# 

$PST4 nc 

WAIT 
BSC 



$PST3 



ENTRY POINT 

RETURN TO DEVICE SUBROUTINE 



POSTOPERATIVE I/O ERRORS ON LEVEL 4 



$PST4 



ENTRY POINT 

RETURN TO DEVICE SUBROUTINE 



» PROGRAM STOP KEY TRAP 



$STaP DC 

WAIT 



BOSC I $STOP 



ENTRY POINT 

WAIT TIL START KEY PUSHED 

RETURN TO CALLER 



PMN03254 
PHN03255 
PMN03256 
PMN03257 
PMN0375S 
PMN03270 
PMN03280 
PHN03290 
PMN03300 
PMN0331O 
PHN03350 
PMN03360 
PMN03370 
PMN03380 
PMN03400 
PMN03410 
PMN03415 
PMN03417 
PHN03420 
PMN03430 
PMN03440 
PMN03460 
PMN03470 
PMN03480 
PMN03490 
PMN03500 
PHN03510 
PMN03520 
PMN03530 
PMN03540 
PMN03550 
PMN03560 
PMN03570 
PHN03580 
PMN03590 
PMN03600 
PMN03510 
PMN03620 
PMN03530 
PMN03640 
PMN03550 
PMN03650 
PMN03670 
PMN035B0 
PMN03690 
PMN03700 
PMN03710 
PNN03730 
PMN03740 
PMN03750 
PMN03760 
PMN03770 
PMN03780 
PMN03790 
PMN03SO0 
PMN03B10 
PMN03820 
PMN03a30 
PHN03B40 
PMN03B50 
PMN03860 
PMN03870 
PMN03880 
PMN03890 
PMN03q00 
PMN03910 
PHN03920 
PMN03930 
PMN03940 
PMN03950 
PMN03960 
PMN03970 
PMN03980 
PMN03990 
PHN04000 
PMN04010 
PMN04020 
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AODR REL OBJECT ST. NO. 



LABEL OPCO FT OPERANDS 



ID/SEQNO 



0095 0000 

0096 0000 
00<)7 0000 

0098 0000 

0099 0000 



009A 0000 

009B 0000 

009C 0000 

0090 0000 

Oa9F 0000 



009F 0000 

OOAO 0000 

OOSl O 0000 

00A7 0000 

OOA'^ 0000 



00 A4 





0000 


onA5 





0000 


00A6 





oooo 


00A7 





0000 


OOAfl 





0000 


00A9 





0000 


OOAA 





0000 


OOAB 





0000 


OOAC 





0000 


OOAO 





0000 


OOAE 





0000 


OOAF 





0000 


0080 





0000 


00 R I 





0000 


OOH? 





0000 



OOBT 0000 

0084 6906 

0085 6A07 
0OB6 2307 
00B7 0804 

OOBS 00 44000000 

OOBA 00 65000000 

OOBC 00 66000000 

OOBF 2000 

008F cao2 

OOCO 00 4CC000B3 

00C2 0000 

00C2 0000 

00C1 0000 



0409 

0410 

0411 

0412 

041? 

0414 

0415 

0416 

0417 

C418 

0419 

0420 

0421 

0477 

0423 

0424 

0425 

0426 

C4?7 

0428 

0429 

0430 

04->l 

0432 

0433 

04 34 

0435 

04 36 

0437 

04 38 

0439 

0440 

0441 

0442 

0443 

C444 

0445 

0446 

0447 

044 8 

0449 

0450 

0451 

0457 

0453 

0454 

0455 

0456 

0457 

0458 

0459 

0460 

0461 

046? 

0464 

0465 

0466 

0467 

C468 

0469 

04 70 

0471 

0477 

0473 

04 74 

047 5 

0476 

0477 

0476 

0479 

0480 

0481 

0482 

0483 

04 84 

0485 

0486 

0487 

0488 



* PARAMETERS USED 6y THE DISK I/O SUBROUTINES. THE 

* LOGICAL DRIVE CODE IS FOUND IN BITS 1-3 FOR ALL 

* BUT THE AREA CODE. BIT WILL ALMAYS BE ZERO. 



*** OISKl AND OlSKN WILL NOT WRITE BELOM THE 

*** FOLLOWING SCTR ADDRESSES (EKCEPT WRITE IMMED). 



tFPAD DC 
DC 
DC 
DC 

DC 



*-* FILE PROTECT ADDR, LOGICAL OR 

*-• FILE PROTECT ADDR, LOGICAL OR 

*-• FILE PROTECT ADOR, LOGICAL DR 

♦-* FILE PROTECT ADORi LOGICAL OR 

*-• FILE PROTECT ADDR, LOGICAL DR 



**♦ THE ARM POSITION IS UPDATED WHENEVER A SEEK 

*»* OCCURS. 

* 

tCYLN DC O ARM POSIIION FOR LOGICAL DRIVE 
DC ARM POSITION FOR LOGICAL DRIVE 
DC ARM POSITION FOR LOGICAL DRIVE 
nC ARM POSITION FOR LOGICAL DRIVE 
OC ARM POSITION FOR LOGICAL DRIVE 

* 

«** 8FLCW ARE THE DISK AREA COOKS. A ZERO 

**» INDICATES THE CORRESPONDING DRIVE IS NOT 

*** ON THE SYSTEM 



»ACOF DC 
DC 
OC 
OC 
DC 



*-• 



»— * 



AREA CODE FOR LOGICAL DRIVE 

AREA CODE FOR LOGICAL DRIVE 

AREA CODE FDR LOGICAL DRIVE 

AREA CODE FOR LOGICAL DRIVE 

AREA CODE FOR LOGICAL DRIVE 



♦** THE ADR OF THE CYLINDER IN WHICH A DEFECT OC- 
»** CURS, IF ANY, IS STORED IN THE 1ST, 2N0, OR 3RD 
*** WORD BELOW, DEPENDING ON WHETHER IT IS THE 1ST, 
**» 7ND, OR 3RD DEFECT ON THE CARTRIDGE. 



tOCYL OC 
OC 
OC 
OC 
DC 
OC 
DC 
OC 
OC 
DC 
DC 
DC 
OC 
DC 
OC 



*-* 
*-* 



*-* 
*-* 
*-* 
*-* 
*-* 
*-* 
*-* 
»-* 
*-* 
«-♦ 
*-* 
*-* 



DEFECTIVE CYLINDER ADDRESSES 
*FOR LOGICAL DRIVE 



DEFECTIVE CYLINDER ADDRESSES 
♦FOR LOGICAL DRIVE 1 



DEFECTIVE CYLINDER ADDRESSES 
♦FOR LOGICAL DRIVE 2 



DEFECTIVE CYLINDER ADDRESSES 
♦FOR LOGICAL DRIVE 3 



DEFECTIVE CYLINDER ADDRESSES 
♦FOR LOGICAL DRIVE 4 



♦ ILS02~THIS SUBROUTINE SAVES XRl, XR2, STATUS, 

♦ AND THE ACCUMULATOR AND ITS EXTENSION. 

♦ THE ADDRESS OF THE INTERRUPT SERVICE ROU- 

♦ TINE IS STORED IN $1205 BY PHASE 2 OF 

♦ THE CORE IMAGE LOADER. WORD 10 ALWAYS 

♦ CONTAINS THE ADDRESS OF tI200. 



DC 
STX 
STX 
STS 

STO 



*— * 

$1210+1 

$1210+3 

»I2I0+4 

$1290 



ENTRY PT 
SAVE XRl 
SAVE XRJ 
STORE ST/ 
SAVE ACCl 



I LEVEL 2 INTRUPTI 



ATUS 

UMULATOR, EXTENSION 

♦ $1205+1 CONTAINS AODR INTERRUPT ENTRY PT TO OKI/0 

$1205 BSI L ♦-♦ BR TO SERVICE THE INTERRUPT 

$1210 LDX LI ♦-♦ RESTORE XRl 
LDX L2 ♦-♦ RESTORE XR2 
LOS RESTORE STATUS 

LCD »I290 RESTORE ACCUMULATOR , EXT 
BOSC r $1200 RETURN FROM INTERRUPT 

$1290 BSS E 



OC 
OC 



♦ -♦ 



CONTENTS 
♦ EXTlrNTI 



OF ACCUMULATOR AND 

ON 



PMN04040 
PHN04050 
PHN04060 
PMN04070 
PMN040B0 
PMN04090 
PHN04iaO 
PMN04110 
PMN04120 
PHN04130 
PHN04140 
PMN04150 
PMN04160 
PMN04170 
PMNa4180 
P(1N04190 
PHN04200 
PMN04210 
PMN04220 
PHN04230 
PMN04240 
PMN04250 
PMN04260 
PHN04270 
PMN042a0 
PMN04290 
PHN04300 
PHN04310 
PMN04320 
PHN04330 
PMN04340 
PMN04350 
PMN04360 
PMN04370 
PHN04380 
PHN04390 
PMN04400 
PHN04410 
PMN04420 
PMN04430 
PMN04440 
PMN04450 
PMN04460 
PHN04470 
PHN044B0 
PHN04490 
PMN04500 
PMN045I0 
PMN045 20 
PHN04530 
PHN04540 
PMN04550 
PHN04560 
PMN04570 
PMN04590 
PMN04600 
PMN04610 
PMN04620 
PMN04630 
PMN04640 
PMN04650 
PHN04660 
PMN04570 
PMN04&B0 
PHN04690 
PMN04700 
PHN04710 
PMN04720 
PMN04730 
PHN04T40 
PMN04750 
PMN04760 
PMN04770 
PMN04780 
PMN04790 
PMN04800 
PMN04810 
PHN04820 
PHN04830 
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AnOR REL OBJECT ST. NO. LABEL OPCD FT OPERANDS 



OOCf 
O0C5 
00C6 
00C7 
00C8 
00C9 
OOCA 
OOCB 

oocn 00 
oocF n 

OODO 
OODl 
000? 





00 



0000 

0813 

280E 

btOf 

6A10 

0816 

1002 

*C1000DO 

4*80002C 

FFFE 

6109 

OSLO 

1140 



000? 00 A5800000 

0005 ?000 

00D6 00 65000000 

0008 00 66000000 

OODA C803 

OODB 00 ^CCOOOCi 



OOOD 





0000 


OODE 




0002 


OOEO 





0000 


OOEO 







0OE1 





OFOO 


OOE? 




0001 


00E3 





0100 



00F4 n 0000 

00E5 OFOl 

00F6 0000 

00E7 08FC 

00E8 00 4C4000EA 

OOFA 00 4400003F 

OOEC FFFE 



OOEO 

00 EE 



0001 
0000 



0490 

0491 

0492 

0493 

0494 

0495 

0496 

0497 

049 8 

0499 

0500 

0501 

0502 

0503 

0504 

0505 

0506 

0507 

0508 

0509 

0510 

0511 

0512 

0513 

0514 

0515 

0516 

0517 

051B 

0519 

0520 

0521 

0522 

0523 

05 24 

0525 

05 26 

0527 

0528 

0529 

0530 

0531 

0532 

0533 

0534 

0535 

0536 

0538 

0539 

0540 

0541 

0542 

0543 

0544 

0545 

0546 

0547 

0548 

0549 

05 50 

0551 

0557 



* ILS04 — THIS SUBROUTINE SAVES XRl, XR2, STATUS, 
» AND THE ACCUMULATOR AND ITS EXTENSION. 

* IF THE INTERRUPT IS FOR A KEYBOARD REQ- 

* UEST.AND IF A MONITOR PROGRAM IS IN CON- 

* TROL, CONTROL IS PASSED TO DUMP. OTHER- 
« WISE, CONTROL IS PASSED TO THE KEYBOARD/ 

* CONSOLE PRINTER SUBROUTINE- WORD 12 AL- 

* MAYS CONTAINS THE ADDRESS OF *I400. 
* 

* THE TABLE 8EL0W CONTAINS THE ADDRESSES OF THE 

* INTERRUPT SERVICE ROUTINES FOR ALL THE DEVICES 

* ON LEVEL 4. 



$1400 DC 

STD 

STS 

STX 

STX 

XIO 

SLA 

BSC 

BSI 

DC 

$1403 LDX 

XIO 

SLCA 

* $1405+1 

$1405 BSI 

$1410 LDS 

LOX 

LDX 

LDO 

BQSC 



♦-* 

$1490 

$1410 

$1410*2 

$I4lO»-4 

$1492 

2 

$1403,- 

$IREQ 

-2 

9 

$1494 



ID/SEQNO 

PMN048S0 
PMN04860 
PMN04870 
PHN04880 
PMN04890 
PMN04900 
PMN04910 
PMN04920 
PMN04930 
PMN04940 
PMN04950 
PMN04960 
PMN04970 
PMN04980 
PHN04990 
PMN05000 
ENTRY POINT PMN05010 

SAVE ACCUMULATOR, EXTENSION PHN05020 
SAVE STATUS PMN05030 

SAVE XRl PHN05040 

SAVE XR2 PMN05050 

SENSE DSM PMN05060 

IS THIS INTERRUPT REQUEST PMN05070 
BR IF NOT INTERRUPT REQUEST PHN05080 
BR IF INTERRUPT REQUEST PMN05090 
ERROR CODE PMN05100 

NO. DEVICES ON LEVEL TO XRl 
SENSE ILSM 
FIND CAUSE OF INTERRUPT 



CONTAINS AODR OF LEVEL 4 IBT MINUS 1 



II *- 



LI 
L2 



$1490 
$1400 



BR TO SERVICE THE INTERRUPT 
RESTORE STATUS 

xai 

XR2 

ACCUMULATOR, EXT. 



RESTORE 
RESTORE 
RESTORE 
RETURN 



* CONSTANTS AND MORK AREAS 

, EVEN-NUMBERED LABELS ARE ON EVEN BOUNDARIES 

* 

*-♦ DSW FOR THE DISK 

2 CONTENTS OF ACCUMULATOR, EXT- 

*-* 

*-l VERSION AND MOD NO. 

/OFOO lOCC FOR SENSE lOCC FOR KB/CP 

1 PATCH AREA 

/0300 lOCC FOR SENSING 



$0DSM 
$1490 
$1492 
$SYSC 

$1494 



DC 

BSS 

DC 

EQU 

OC 

BSS 

OC 



PATCH AREA 

FIX FOR APAR N5044 



$1496 



$1420 



$1425 



$DBSY 



OC 


*-* 


DC 


/OFOl 


OC 


*-♦ 


XIO 


$1496 


BQSC L 


$1425 


BSI L 


$DUMP 


DC 


-2 


BSS 


1 


DC 


*-* 



ILSM04 

2-2 

2-2 

2-2 

2-2 

XR3 SETTING DURING XEO 2-2 

SENSE KEY BOARD W RESET2-2 

2-2 

ENTRY POINT FLUSH JOB 2-2 

SENSE KEY BOARD W RESET2-2 

TURN OF INTERRUPT 2-2 

BRANCH TO WAIT OUT PEN02-2 

♦INTER AND GET AUX SUP 2-2 

2-2 

PATCH AREA 2-2 

NON-ZERO WHEN DISK I/O BUSY 



PMN05110 

PMN05120 

PMN05130 

PMN05140 

PI«N05150 

PMN05160 

PMN05170 

PHN05180 

PMN05190 

PMNC5200 

PMN05210 

PMN0S220 

PMN0S230 

PMN05240 

PMN05250 

PHN05260 

PMN05270 

PHN05280 

PMN05290 

PHN05300 

PMN0S310 

PHN05330 

PMN05340 

PMN05350 

PMN05360 

PMN0 5 370 

PHN05380 

PMN05390 

PMN05400 

PMN05410 

PMN05420 

PMN05430 

PMN05440 

PMN05450 

PMN054&0 

PMN05470 



OISKZ 

AODR REL OBJECT ST. NO. 

0554 
0555 
0556 
0557 
0558 
0559 
0560 
0561 
0562 
0563 
0564 
0565 
0566 
0567 
0568 



LABEL OPCD FT OPERANDS lO/SEONO 

*************************************************** PMN05490 

* * PMN05500 
♦STATUS-VERSION 2, MODIFICATION 1 * PMN05510 
» * PMN05520 

* PROGRAM NAME- * l'MN05530 

* *FULL NAME-FORTRAN/SYSTEM DISK I/O SUBROUTINE * PMN05540 

* *CALLING SEQUENCE- * PMN05550 
» LDO PARAM * PMN05560 

* BSI L OZOOO * PMN05570 
» WHERE PARAM IS THE LABEL OF A DOUBLE-WORD * PHN05580 

* CELL CONTAINING THE FUNCTION CODE AND THE * PMN05590 

* AODR OF THE I/O BUFFER, I.E., ADDR OF WD CNT. * PMN05600 

* SFE 'CAPABILITIES' FOR DISCUSSION OF PARAM- • PMN05610 

* FTERS. * PWN05620 
« PMN0S630 
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noFO 




000 


OOFO 


a 


OOEF 


OOFl 





FF6A 


00f=? 





00E8 


onF^ 





0001 


00F4 






OOF? 





0000 



»00R REL OBJECT ST. NO. 

0569 
0570 
0571 
0572 
0573 
057A 
0575 
0576 
0577 
057P 
0579 
05 SO 
0581 
0582 
0583 
0584 
05155 
0586 
0587 
0588 

05 89 
0590 
0591 
059? 
0593 
0594 
0595 
0596 
0597 
059B 
0599 
0601 
0602 
0603 
0604 
0605 
0606 
0607 
0608 
0610 
0511 
0612 
0613 
0614 
0615 
0616 
0617 
0618 
0619 

06 70 
0621 
0622 
06 23 
0624 
0625 
0626 
0627 
06 26 
06 29 
0530 
0631 
0632 
0633 
0534 
0635 
0636 
06 37 
0536 
0539 
0640 
0641 
0642 
0543 
0644 
0545 
0646 
0647 
0648 
0649 
0550 
0651 
065? 



00F3 00 740000EF 
0OF5 O 70Fn 
00F6 7002 



OOF 7 

OOF 8 

00F9 

OOFA 

OOFB 

OOFC 

OOFD 

OOFF 

OOFF 

0100 

0101 

0102 

0103 







0106 

0107 



0000 
7015 
&90F 
6A10 
1008 
003C 
1800 
D056 
6211 
6AEn 
COFO 
D0F4 
7Q4E 
4CO0OOO0 



5908 
081E 



01 C8 00 55000000 
010A 00 65000000 
OlOC 00 4CS0O0F7 



OIOE 00 55000000 
Olio 00 660000F2 



0112 





0«19 


0113 





00C9 


0114 





4850 


0115 





70EE 


0116 





C800 


0117 





0900 



LABEL OPCD :FT OPERANDS 

♦PURPOSE- * 

* TO PROVIDE A SUBROUTIHE TO PERFORM DISK OPERA-* 

* TIONS. ITHIS SUBROUTINE IS INTENDED FOR USE BY * 

* MONITOR PROGRAMS AND USER PROGRAMS WRITTEN IN » 

* FORTRAN. THUS, IT IS INTENDED FOR USE IN AN * 

* FRRGR-FREE ENVIRONMENT. * 

* * 
•METHOD- * 

* DISK! REQUIRES A BUFFER, THE LENGTH OF MHICH IS* 

* ? GREATER THAN THE NO. WORDS TO BE READ/WRIT- * 

* TEN. « 

* * 
♦CAPABILITIES AND LIMITATIONS- * 

* THE HC CNT,AS WELL AS OZOOO.MUST BE ON AN EVEN* 

* BOUNDAR/.MUST BE IN THE RANGE 0-32 757. THE * 

* DRIVE CpOF MUST BE IN BITS 1-3 OF THE SECTOR * 

* A DDR, WHICH FOLLOWS THE WD CNT. THE FUNCTION * 

* INDICATOR MUST BE XXOO FOR A READ OR XXOl FOR * 

* A WRITE.WHERE "XX" MEANS ANY 2 HEXADECIMAL * 

* CHARACTERS. A WD CNT OF ZERO INDICATES A SEEK.* 

* (READ OR WRITE MAY BE INDICATED.* AUTOMATIC * 

* SEEKING IS PROVIDED AS A PART OF REAO/HRITE. * 

* A WRITE IS ALWAYS WITH A READ-BACK-CHECK. * 

* OISKZ MAKFS NO PREOPERATIVE PARAMETER CHECKS. * 



*SPECIAL FEATURES- * 

* niSKZ PROVIDES ONLY THOSE FUNCTIONS MENTIONED * 

* ABOVF. DISKl AND OISKN OFFER THIS BASIC SET OF* 

* FUNCTIONS PLUS OTHERS. * 

* • 

* PROVIDE PARAMETERS FOR SYSTEM LOADER 



BSS 
DC 
DC 
DC 
DC 
ORG 
DZOOO DC 
MOX 
MDX 
MOX 





SZEND-* DISKZ WORD COUNT 

-•OZID PHASE ID 

tZEN0-5-*tl ADDR OF SLEI EXTRACT 



*-? 

*-* 

tOBSY.O 

*-3 

DZ020 



NO. ENTRIES IN SLET EXTRACT 

ENTRY POINT 

LOOP UNTIL OPERATION IN 

•PROGRESS IS COMPLETE 

BR AROUND INT ENTRY POINT 



* INTERRUPT ENTRY POINT 



DZOlO DC 
MDX 

DZ020 STX 
STX 
SLA 
STO 
RTF 
STO 

DZ030 LDX 
STX 
LO 
STO 
MDX 

DZ050 8SC 



*-« 

0Z180 

DZIOO+1 

nzioo*3 

8 

DZ945 

15 

DZ235+I 

'TCNT 

»OSSY 

D/OOO 

OZOIO 

DZ230 



INTERRUPT ADDRESS 

BR TO SERVICE INTERRUPT 

SAVE XRl 

SAVE XR? 

SHIFT INDICATOR 8 BITS 

SAVE FUNCTION INDICATOR 

SAVE AOOR OF THE I/O AREA 
TURN BUSY INDICATOR ON AND 
♦SET RETRY COUNT 



8R TO CONTINUE 

BR TO SERVICE THE INTERRUPT 



* START ALL DISK OPERATIONS 



DZ070 STX 1 DZ 180+1 
XIO 0Z904 

* RETURN TO USER 



DZlOO LDX 
LDX 
BSC 

♦ 

♦ SERVICE 

* 

DZiaO LDX 
LDX 
XIO 
STO 
BOSC 
MOX 
LCD 
STD 



LI 
L? 
I 



*-* 
*-* 
DZOlO 



SAVE ADDR OF THE I/O AREA 
START AN OPERATION 



RESTORE XRl 
RESTORE XR? 
RETURN 



ALL INTERRUPTS 



DZ185 



LI *-♦ AOOR OF I/O AREA TO XRl 

L2 DZOOO AOOR OF OZOOO TO XR2 

DZ910 SENSE THE OSW 

»DDSW SAVE THE OSW 

SKIP IF ERROR BIT SET 

DZ050 BRANCH IF ERROR BIT NOT SET 

DZ902 RESTORE WORD COUNT 

*AND SECTOR ADDRESS 



ID/SEQNO 

PMN0S54O 

PMN05550 

PMN05560 

PHN05670 

PMN05580 

PHN05690 

PMN05700 

PMN05710 

PMN05720 

PMN05730 

PMN05740 

PMN05750 

PMN05760 

PMN05770 

PMN05780 

PMN05790 

PHN05800 

PMN05810 

PMN05820 

PHN05830 

PMN05a40 

PMN05850 

PMNa5S50 

PMN05870 

PMN05880 

PMN05890 

PMN0 5900 

PMN05910 

PMN05920 

PMN05930 

PMN05940 

PHN05960 

PMN05970 

PMN05980 

PMN05990 

PHN06000 

PMN06010 

PMN05020 

PMN06030 

PMN05050 

PHN06060 

PMN06070 

PMN06080 

PMN05090 

PKN05100 

PMN06110 

PMN05120 

PMN05130 

PNN06140 

PMN06150 

PMN06160 

PMN05170 

PMN061SO 

PMN06190 

PNN06200 

PMN06210 

PHN06220 

PMN06230 

PMN05240 

PMN05250 

PMN06 260 

PMN06?70 

PMN06280 

PMN06290 

PMN06300 

PMN06310 

PMN06320 

PHN06330 

PHN06340 

PMN05350 

PHN06360 

PHN06370 

PMN06380 

PMN05390 

PNN06400 

PMN06410 

PHN06420 

PMN06430 

PMN06440 

PMN05450 

PMN05460 

PMN06470 
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ADOU REL OBJECT ST. NO. 



LABEL open FT OPERANDS 



IC/SEQNO 



0118 


00 


74FF00EE 


0653 




MOX 


L »0BSY,-1 SKIP IF 15 RETRIES DONE 


PHN064BO 


OllA 





7030 


0654 
0655 


* 


MOX 


0Z235 BRANCH IF LESS THAN 15 


PMN06490 
PMN06500 








0656 


* TRAP 


' OUT 


TO POSTOPERATIVE TRAP 


PMN06510 








0657 


i: 






PMN05520 


OllH 





C812 


0658 




LCD 


DZ912 l+SCTR ADDR TO EXTENSION 


PKN06530 


oiir 





CO 14 


0659 




LO 


DZ915 


PMN06540 


Olio 





4703 


0660 


DZ190 


BSI 


2 $PST2-X2 BR TO POSTOPERATIVE ER TRAP 


PMN05550 


one 





1810 


0661 




SBA 


16 CLEAR 


PMN06560 


01 IF 


00 


04800191 


0662 




STO 


I 0Z350H *ARM POSITION 


PMN06570 


0121 





70DD 


0663 
0664 


* 


MOX 


DZ030 RETRY OPERATION 


PMN06580 
PMN06590 








0665 


♦ CONSTANTS AND WORK AREAS 


PMN06500 








0666 


* 






PMN06610 


0127 




0000 


0667 




BSS 


F 


PHN06620 








0668 


* EVEN-NU>18ERE0 LABELS ARE ON EVEN 80UNOARIES 


PMN06630 


017' 





0001 


0660 


OZ900 


DC 


1 CONSTANT, RE&D-AFTER-SEEK WO CNT 


PMN06640 


0123 





0000 


067C 


OZOOl 


OC 


CURRENT ARM POSITION 


PMN06650 


0174 





0000 


0671 


0Z902 


DC 


*-* LAST TWO WORDS OF SECTOR 


PMN06560 


0175 





0000 


067? 




DC 


»-» »PR£VIOUSLY READ 


PMN06570 


0125 


c 


0000 


0573 


0Z904 


OC 


*-* lOCC FOR OPERATION CURRENTLY 


PMN06680 


0177 





0000 


0674 


nZ905 


DC 


*-* *BelNG PERFORMED 


PMN06690 


0128 


n 


0000 


0675 


OZ906 


DC 


*-♦ SAVE AREA FOR I OCC FOR 


PMN06700 


0170 





0000 


0676 


0Z907 


OC 


•-* *USER-REOUESTED OPERATION 


PMN06710 


012A 





0127 


0677 


07 908 


OC 


DZ900 lOCC FOR READ 


PMN06720 


0128 





0000 


0678 


DZ900 


DC 


•-* *AFTER SEEK 


PMN06T30 


01 7C 





0000 


0579 


0Z910 


DC 


*-* 2N0 WORD OF SEEK I OCC 


PMN06740 


0120 





0000 


0680 


DZ911 


DC 


*-* SENSE I OCC 


PMN06750 


012E 





0000 


0681 


07.917 


DC 


♦-* INTERMEDIATE WORD COUNT 


PMN06760 


012F 





0000 


0682 


0Z913 


OC 


*-* AOOR OF NEXT SEOUENTIAL SECTOR 


PHN06770 


OHO 





5002 


06 83 


DZ914 


OC 


/5002 WRITE SELECT/POWER UNSAFE INDR 


PMN06780 


01^1 





5004 


0684 


0Z915 


OC 


/5004 REAO/WRITE/SEEK ERROR INDICATOR 


PMN05790 


0132 





FECO 


0685 


0Z015 


DC 


-320 TO BE USED TO SIMULTANEOUSLY 


PMN06800 


0133 





0001 


0686 




OC 


1 *OECR WD CNT, INCR SCTR AOOR 


PMN06810 


0134 





0080 


0687 


nZ970 


OC 


/0080 REAC CHECK BIT FOR lOCC 


PMN06a20 


0135 





0600 


0588 


07925 


OC 


/0600 2ND WO OF READ lOCC W/0 AREA CC 


PMN06830 


0»36 





0008 


0689 


DZ930 


DC 


B NO. SECTORS PER CYLINDER 


PMN06840 


0137 





5000 


0590 


DZ935 


DC 


/5000 NOT READY DISPLAY CODE 


PMN06850 


013B 





OFFS 


0501 


DZ940 


DC 


/0FF8 'AND' OUT DR CODE, SCTR AOOR 


PMN05860 


0139 





0000 


0692 


0Z945 


DC 


*-* FUNC INDICATOR I0*READ,1 fWRITE) 


PMN05870 


01 3A 





0701 


0603 


nZ950 


CC 


/0701 SENSE lOCC W/O AREA CODE 


PMN06880 


01 3B 





0007 


0594 


0Z955 


DC 


/0007 'AND' OUT ALL BUT SCTR NO. 


PMN06890 


01 3C 





000 S 


0695 


DZ960 


OC 


$DCYL-$CYLN BASE DEFECTIVE CYL ADDR 


pMNoaqoo 


0130 





OOOF 


0696 


DZ965 


OC 


$ACOE BASF AREA CODE ADDR 


PMN06910 


01 3F 





FFFB 


0697 


DZ970 


nc 


$CYLN-$ACDE BASE ARM POSITION AODR 


PMN05920 


013F 





0000 


0508 


DZ975 


OC 


*-* 2N0 WORD OF READ CHECK lOCC 


PMN06930 


0140 


n 


0400 


0699 


DZ980 


DC 


/0400 7ND WO OF SEEK lOCC W/0 AREA CD 


PMN05940 


0141 





0141 


0700 


0Z985 


DC 


321 NO. WORDS PER SECTOR >W/ ADORJ 


PMN06950 


014? 





0000 


0701 


nZ900 


OC 


*-» CURRENT SECTOR NO. 


Pr^N06960 


0143 





FFFF 


0702 
0703 


DZ905 

* 


OC 


-1 MASK FOR COMPLEMENTING 


PMN06970 
PMN05980 








0704 


* RESFRVED 


FOR SAVING CORE ON A DUMP ENTRY TO SKEL 


PMN06990 








0705 


* 






PMN07000 


0144 




0007 


0706 




BSS 


7 THIS AREA MUST BE AT »CIBA*319 


PMN07010 


OOF 2 







0707 
0708 
0709 
0710 


X2 

* 
* 


E8U 


DZOOO 


PWN07020 
PMN07030 
PMN07040 
PHN07050 


0146 





1810 


0711 


nz7lo 


SRA 


16 


PMN07050 


0147 


n 


D0A6 


0712 




STO 


JORSY CLEAR BUSY INDICATOR 


PHN07070 


0148 


00 


74FF0032 


0713 




MOX 


L $I0CT,-1 DECREMENT IOCS COUNTER 


PMN07080 


014A 





1000 


0714 




NOP 




PMN07090 


014fl 





70BC 


0715 
0716 


* 


MOX 


OZIOO TO EXIT 


PMN07100 
PMN0711O 








0717 


* PREPARE 


TO TRAP OUT ON 'POWER UNSAFE" CONDITION 


PMN07170 








0718 


* 






PMN07130 


01 4C 





C0E3 


0719 


nZ215 


LO 


DZ914 


PMN07140 


0140 





70CF 


0720 
0721 


* 


MOX 


DZ 190 BR TO TPAP OUT 


PMN07150 
PMN07160 








0777 


* PREPARE 


TO TRAP OUT ON 'NOT READY' CONDITION 


PMN07170 








0723 


* 






PMN07180 


014E 





C0E8 


0724 


DZ220 


LO 


DZ935 FETCH ERROR CODE 


PMN07190 


014F 


00 


44000028 


0725 




BSI 


L $PRET BR TO PREOPERATIVE ERR TRAP 


PHN07200 


0151 





7036 


0726 
0727 


* 


MOX 


DZ340 RETRY THE OPERATION 


PHN07210 
PMN07220 








0728 


* 




STATEMENTS MOVED 2-1 


PMN07230 








0770 


« 






PHN07240 


0157 


00 


74010032 


0730 


DZ230 


MOX 


L $I0CT,1 INCREMENT IOCS COUNTER 


PMN07250 


0154 


00 


65000000 


0731 


07235 


LOX 


LI *-* ADDR I/O AREA TO XRl 


PMN07260 


0156 





C900 


0732 




LOO 


1 


PMN07270 


0157 





D8CC 


0733 




STO 


0Z902 SAVE WORD COUNT, SCTR AODR 


PMN07280 


015R 





0805 


0734 




STO 


DZ91? 


PMN07290 
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»DOR REL OBJECT ST. NO. LABEL OPCD FT OPERAMnS 



!C/SE0NO 



0159 





1810 


0735 


DZ240 


SRA 




15 




PMN0T300 


01 5A 





1084 


0736 




SLT 




4 


DRIVE CODE IN BITS 12-15 


PMN07310 


015B 





DOOE 


0737 




STO 




nZ280+l 




PHN07320 


oisr. 





aoEO 


0738 




A 




0Z965 


COMPUTE AND STORE THE 


PHN07330 


0150 





OOIC 


0739 




STG 




DZ330+1 


*AD0R OF THE AREA CODE 


PHN07340 


015F 





80DF 


0740 




A 




DZ970 


COMPUTE AND STORE THE 


PMN07350 


015F 





no3i 


0741 




STO 




OZ350+1 


*ADDR OF THE ARM POSITION 


PMN07360 


0160 





aooB 


0742 




A 




0Z960 


AOD IN BASE OT AOOR 


PMN07370 


0151 





8008 


0743 




A 




DZ 280*1 


ADD IN THE DRIVE 


PMN07380 


016? 





8007 


0744 




A 




07780*1 


♦CODE TWICE MORE 


PHN07390 


0163 





D005 


0745 




STO 




DZ280*1 




PMN07400 


0164 





62F0 


0746 




LDX 


2 


-3 


INITIALIZE COUNTER FOR LOOP 


PHN07410 


0165 





59C? 


0747 




STX 


1 


0Z906 




PMN07420 


0166 





ClOl 


0748 




LO 


1 


1 


FETCH DESIRED SECTOR ADDR 


PMN07430 


0167 





EOOO 


0749 




AND 




nZ940 


•AND* OUT SECTOR NO. 


PMN07440 


0158 





OlOl 


0750 


DZ250 


STQ 


1 


1 


♦AND DRIVE CODE 


PMN07450 


016<J 


00 


94000000 


0751 


07 280 


S 


L 


*-* 


SUB DEFECTIVE CYLINDER ADDR 


PMN07460 


016R 





4828 


0752 




8SC 




7* 


SKIP IF BAD CYLINDER 


PHN07470 


01 6C 





7007 


0753 




MDX 




OZ300 


BR 10 CONTINUE PROCESSING 


PMN07480 


Ql5r) 





ClOl 


0754 




LD 


1 


1 




PMN07490 


01 5F 





80C7 


0755 




A 




DZ930 


INCREMENT SCTR ADDR BY 8 


PMN07500 


016F 


00 


7401016A 


0756 




MDX 


L 


072804-1,1 


POIMT TO NEXT DEFECTIVE CYL 


PMN07510 


01 n 





7?01 


0757 




MDX 


2 


1 


SKIP AFTER 3R0 PASS 


PMN07520 


017? 





70F5 


0758 




MDX 




DZ250 


COMPARE H/ NEXT DEF CYL ADR 


PMN07530 


0173 





DlOl 


0759 
0760 


* 


STO 


1 


1 


SCTR ADDR WITH 3 DEF CYL2-4 


PMN07535 
PMN07540 








0751 


♦ CONSTRUCT THE 2ND WORD OF ALL IDCC'S 


PMN07SS0 








076? 


* 










PHN07560 


0174 


00 


56 0000F2 


0763 


0Z300 


LDX 


L2 


DZOOO 


ADDR OF DZOOO TO XR2 


PHN07570 


0175 





C?3D 


0764 




LD 


7 


DZ913-X2 


FETCH SECTOR ADDRESS 


PMN07580 


0177 





EZ49 


0765 




ANO 


2 


0Z955-X2 


•AND" OUT ALL BUT SECTOR NO 


PMN07590 


0178 





0250 


0766 




STO 


2 


0Z990-X2 


SAVE SECTOR NO. 


PMN07500 


017P 


00 


C4000000 


0757 


DZ330 


LO 


L 


*-* 


FETCH AREA CODE 


PMN07510 


017B 





EA4F 


0768 




OR 


7 


0Z98O-X2 


•OR' IN SEEK FUNCTION CODE 


PMN07520 


0l7r 





D23A 


0759 




STO 


Z 


DZ910-X2 


SEEK lOCC MINUS DIRECTION 


PMN07630 


0170 





FA43 


0770 




OR 


2 


DZ925-X2 


•OR' IN READ FUNCTION CODE 


PHtJ07540 


017F 





0239 


0771 




STO 


2 


0Z909-X2 


lOCC FOR REAO-AFTER-SEEK 


PMN07650 


017F 





EA50 


0772 




OR 


2 


DZ990-X2 


•OR' IN SECTOR NO. 


PMN07560 


0180 





9247 


0773 




S 


2 


DZ945-X2 


COMPLETE READ/WRITE CODE 


PMN07670 


0191 





0237 


0774 




STO 


2 


DZ907-X2 


2ND WO OF READ/WRITE lOCC 


PMN07580 


018? 





EA4? 


0775 




OR 


? 


DZ970-X? 


'OR' IN RFAD CHECK BIT 


PMN07690 


018^ 





8?47 


0776 




A 


2 


DZ945-X2 




PMN07700 


0184 





D24D 


0777 




STO 


2 


DZ975-X2 


2ND WD tlF READ CHECK lOCC 


PMN07710 


0185 





ES48 


0778 




OR 


2 


DZ950-X2 


•OR' IN SENSE lOCC BITS 


PMN07770 


0185 





023S 


0779 




STO 


2 


0Z911-X7 


COMPLETED SENSE lOCC 


PMN07730 


0187 





CA3C 


0780 




LCD 


7 


02917-XZ 


1+SCTR ADDR TO EXTENSION 


PMN07740 


0188 





0A3A 


078 I 


DZ340 


XIO 


2 


DZ910-X2 


SENSE FOR DISK READY 


PMN07750 


0189 





07EB 


0782 




STO 


2 


IDDSW-X2 


SAVE THE OSW 


PHN07760 


01 8A 





4328 


0783 




BSC 




Z + 


SKIP UNLESS POWER UNSAFE OR 


PHN07770 


01 88 





7OC0 


0784 




MOX 




nZ215 


♦WRITE SELECT, BR OTHERWISE 


PMN07780 


01 SC 





1007 


0785 




SLA 




2 


BR TO PREOPERATIVE ERR TRAP 


PMN07790 


0180 





4878 


0786 




BSC 




Z* 


♦IF DISK NOT READY, SKIP 


PMN07800 


018F 





70BF 


0787 
0788 


« 


MDX 




0Z220 


♦OTHERWISE 

STATEMENTS REMOVED 2-1 


PMN07aiO 
PHN07820 


018F 





r.ioi 


0789 




LO 


1 


1 


FETCH DESIRED CYLINDER ADDR 


PMN07a30 


0190 


00 


94000000 


0790 


DZ350 


S 


L 


*-* 


SUBTRACT ARM POSITION 


PMN07840 


0197 





4818 


0791 




BSC 




■f— 


SKIP IF SEEK NECESSARY 


PMN07850 


0193 





701B 


0792 
079 3 


♦ 


MDX 




DZ400 


BRANCH TO PERFORM OPERATION 


PMN07850 
PMN07870 








0794 


♦ SEEK 








PMN078aO 








0795 


* 










PHN07a90 


0194 





1893 


0796 




SRT 




19 


PUT NO. CYLINDERS IN EXT 


PMN07900 


0195 





180F 


0797 




SRA 




15 


* OR - JIGN TO BIT 15 


PMN07910 


0196 





1007 


0798 




SLA 




2 


SHIFT SIGN TO BIT 13 


PMN07920 


0197 





EA3A 


0799 




OR 


7 


DZ910-X2 


"OR" IN REMAINDER OF lOCC 


PMN07930 


019B 





18D0 


0800 




RTF 




16 




PMN07940 


0199 





4810 


0801 




BSC 




- 


SKIP IF SEEK TOWARD HOME 


PMN07950 


019A 





7002 


0802 




MDX 




0Z380 


BRANCH IF SEEK TOWARD CENTR 


PWN07960 


019B 





F251 


0803 




EOR 


7 


DZ995-X2 


COMPLEMENT NO. CYLS TO BE 


PMN07970 


019C 





8230 


0804 




A 


2 


DZ900-X2 


♦SOUGHT TO GET POSITIVE NO. 


PMN07980 


0190 





CA34 


0805 


0Z380 


STO 


2 


DZ904-X2 




PNN07990 


019E 





C7EB 


0806 




LO 


2 


»ODSH-XZ 


FETCH THE DSW 2-1 


PMN08000 


01 9F 





1000 


0807 




SLA 




13 


2-1 


PMN08010 


01 AO 





4810 


C808 




BSC 




- 


2-1 


PMN08020 


OlAl 





700-' 


0809 




MOX 




DZ390 


2-1 


PHN08030 


01 A2 





ClOl 


0810 


0Z385 


LD 


1 


1 


FETCH SECTOR ADDR 2-1 


PMN08040 


OlAl 





1803 


0811 




SRA 




3 


CONVERT TO CYLINDER AD0R2-1 


PHN08050 


01A4 





0234 


0817 




STO 


2 


DZ904-X2 


♦AND STORE IN IQCC 2-1 


PMN0aO6O 


01A5 





4213 


0813 


DZ 390 


BSI 


2 


02070-1-X7 START SEEK 2-1 


PMN0a070 



332 



01*6 cute 

0l«7 0A34 
OtAB 4?l"* 



01 Aq C23I 

OlAA 00 04800191 

OlAr. 9101 

OlAD 00 40200115 



AODR REL OBJECT ST- NO. 
0814 
0815 
0816 
0817 
0818 
0819 
0620 
0821 
C822 
08 23 
08?4 
0825 
0826 
0877 
C828 
0879 
0830 
0831 
0832 
0833 
0834 
08 35 
0836 
0837 
0838 
0839 
0840 
0841 
0842 
0843 
0844 
0845 
0846 
0847 
0848 
0849 
0850 
0851 
0852 
0853 
0854 
0855 
0856 
0857 
0858 
0859 
0850 
0851 
0857 
0863 
0864 
0865 
0856 
0867 
0868 
0859 
0870 
0871 
0872 
0873 
0874 
0875 



LABEL OPCD FT OPERANDS 



OlAF 

0180 

0181 
01B7 
0183 
01B4 

0185 

0186 
01 97 
0188 
01 B9 
OIBA 
OIBB 
OlflC 
0180 



HIRE 
01 BF 
OICO 
OlCl 
OIC? 
01C3 
01C4 
01C5 
OlCft 
01C7 








oica 00 

OICA 
OICB 

oicc 

OICD 
OICF 



OICF 



CA3C 
4808 
7094 
8A40 
DS3C 
4830 
1810 
824F 
0100 
CA36 
0A34 
ClOl 
EA50 
0101 
4213 



C?4D 

0235 

C747 

4820 

4213 

CA3? 

0900 

C?3C 

4808 

70E9 

75000140 

C900 

0A32 

CA3C 

0900 

70SA 



OlOA 





OOAO 


OlOB 





0000 


01 OC 





0000 


0100 





0000 


OlDE 




0002 


01 EO 








SEEK COKPLETF INTERRUPT PROCESSING 

LOD 2 DZ908-X2 SET UP lOCC FOR 

STD 2 DZ904-X2 »READ AFTER SEEK 

8SI 2 DZ07O-1-X2 START READ-AFTER-SEEK 

READ-AFTER-SEEK COMPLETE INTERRUPT PROCESSING 



LO 
STO 
S 
BSC 



* READ/WRITE 



0Z901-X2 FETCH ADR OF SCTR JUST READ 

DZ350tl UPDATE ARM POSITION 

1 SUB OESIREO SCTR AODR 

DZ185,Z BR IF SEEK UNSUCCESSFUL 



400 LDO 
BSC 

410 HDX 
AD 
STD 
BSC 
SRA 
A 

STO 
LOO 
STO 
LO 
OR 
STO 



FETCH INTERMEDIATE WD CNT 

♦ SKIP, HO CNT NOT EXHAUSTED 

0Z210 BRANCH IF REAO/HRITE DONE 

0Z916-X? DECREMENT WORD COUNT AND 

0Z912-X2 *INCREMENT SECTOR ADDRESS 

Z- SKIP IF THIS IS LAST SECTOR 

16 CLEAR ACCUMULATOR 

D2985-X2 ADO BACK 321 TO MD CNT 

STORE RESULT I N I /O AREA 
DZ905-X2 RESTORE lOCC FOR ORIGINALLY 
DZ904-X? ♦REQUESTED OPERATION 

1 ADD SECTOR NO. TO SECTOR 
DZ990-X2 *AODRESS 

1 



7 0Z917-X2 



BSI 2 DZ070-1-X2 START REAO/HRITE OPERATION 
* 
* READ/WRITE COHPLETF INTERRUPT PROCESSING 



LO 

STO 

LD 

BSC 

BSI 

LOD 

STD 

LD 

BSC 

MDX 



LDO 
STD 
LOD 
STD 
HDX 



RSS 



tCION 



OC 
OC 
OC 
OC 

ess 

IZENO EQU 



DZ975-X2 SET UP FOR READ CHECK 
DZ905-X2 

0Z945-X2 FETCH FUNCTION INDICATOR 
Z SKIP IF READ REQUESTED 

DZ070-1-X2 START READ CHECK OPERATION 
DZ902-X2 RESTORE LAST 2 WOS OF SEC- 
*TOR PREVIOUSLY READ 

DZ917-X7 FETCH INTERMEDIATE WD CNT 
+ SKIP IF MORE READING/HRTING 

BRANCH IF FINISHED 



DZ410 



MOX LI 320 





DZ902- 

0Z912- 



0Z240 



POINT XRl TO NEW I/O AREA 
SAVE LAST 2 HOS OF SECTOR 
X2 *JUST REAO/WRITTEN 
X2 WD CNT, SCTR ADDR NEXT OP 
STORE BOTH IN NEW I/O AREA 
BACK TO SET UP NEXT OPERATN 



•CILl 

*-* 
*-♦ 
*-* 
2 



PATCH AREA 



2-4 



ID NO. OF CORE IMAGE LOR, PI 

CORE AODR/CIO NO. 

WORD COUNT 

SCTR AODR 

WO CNT, SCTR ADDR CORE LOS 

1 * END OF nlSKZ 



ID/SEQNO 

PMN08080 

PMN08090 

PMN08100 

PMNOBllO 

PMN08120 

PHN08130 

PMN08140 

PMN08150 

PMN08150 

PMNOai70 

PMN08180 

PMN08190 

PMN08200 

PMN08210 

PHN0B220 

PMN08730 

PMN08240 

PMN0a250 

PMN08260 

PMN08270 

PMN08280 

PMN08290 

PMN08300 

PMN08310 

PMN08320 

PMN08330 

PMN0a340 

PMN08350 

PMN08360 

PMN08370 

PMN08380 

PMN08390 

PMN08400 

PMN08410 

PMN08420 

PMN08430 

PMN08440 

PMN08450 

PMN0e460 

PMN08470 

PMN08480 

PMN0a490 

PMN08500 

PMNOBSlff 

PMN08520 

PMN08530 
PMN08540 
PMN08550 
PHN0856O 
PMN08570 
PMN08580 
PMN0859O 
PMN0a600 
PMN08610 
PMN036ZO 
PMN08630 
PMN08540 
PMN08650 
PHN08660 
PMN08670 
PMN08680 
PMN03690 
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EOUIVALFNCES 
«DnR REL OBJECT 



0004 





0006 





0007 





rlOOfl 





0009 





OOOA 





OOOB 





OOOC 





OOOD 





OOOE 





OOOF 





001 n 





0011 





0017 





0014 





0015 





0016 





0017 





001 a 





001<» 





001 A 





OOIB 





OOIC 





0010 





0016 





00 IF 





00?0 





0071 





00?^ 





no 7 a 





oo?o 





0017 





0017 





oo^c 





0041 





0045 





004 B 





0050 





0055 





005 A 





onsF 





0073 





0074 





007S 





008C 





ooan 





ooaE 





008F 





0090 





0091 





0092 





0093 


n 


0094 





0095 





0096 





0097 





0098 





noAo 





OOAl 





0014 





0016 





0017 





0019 





0019 





OOIA 





005A 





00B9 





0004 





OOFF 





OOFO 





OOFl 





00F4 






ST. NO. 

087? 
0878 
0879 
0880 
ORSl 
088? 
088? 
0884 
0885 
08 S6 
0B87 
08 88 

oasi 

0390 
0891 
089? 
089? 
0894 
0895 
0896 
0897 
0898 
0899 
0900 
0901 
0902 
0903 
fl<J04 
0905 
0906 
0907 
0908 
C909 
0910 
09! 1 
091? 
C913 
0914 
0915 
0916 
091? 
0918 
0919 
09 70 
0921 

0922 

0923 

0924 

0925 

0926 

0927 

0928 

0929 

0930 

0931 

0932 

0933 

0934 

0935 

0936 

0937 

0938 

0939 

0940 

0941 

0942 

0943 

0944 

C945 

0946 

0947 

0948 

0949 

09 50 

0951 

0952 

0953 

0954 

0955 

0956 

0957 

0958 



LABEL OPCO FT OPERANDS 



* FOUIVAIENCES FOR OCOW PARAMETERS 

* 



EOU 
EQU 
EQU 
EQU 
EQU 



«NAME EQU 
#DBCT EQU 
»FCNT EQU 
#SYSC EQU 
«JBSW ECU 
«CBSM EQU 
#LCNT EQU 
(HPSM EQU 
iMOFl EQU 
l»HDF2 EQU 
(KNCNT EQU 
iENTY EQU 
#RP67 
»TODR 
lUFHOL 
#FSZE 
iUHOL 
#USZE EQU 

mncsM EQU 

fPTOO EQU 

UPPTR EQU 

«CIAD EQU 

«ACIN EQU 

#GRPH EQU 

«6CNT ECU 

«LOSW EQU 

DX3SH EQU 

iECNT EQU 

HiANOU ECU 

«BNDU ECU 

#FPAD EQU 

*PCID EQU 

*CION EQU 

mCIBA EQU 
#SCRA 
«FMAT 
»FLET 
mULET 

*WSCT EQU 

*CSHN EQU 



EQU 
EQU 
EQU 
ECU 



4 NAME OF PRDJRAM/CORE LOAD 

6 BLOCK CT OF PROGRAM/CORE LOAD 

7 FILES SWITCH 

8 SYSTEM/NON-SYSTEH CARTRIDGE INOR 

9 JOBT SWITCH 

10 CLB-RETURN SWITCH 

11 NO. OF LOCALS 

17 CORE MAP SWITCH 

13 NO. OUP CTRL RECORDS IHODIF) 

14 ADDR OF MOOJF BUFFER 

15 NO. GF NQCALS 

16 RLTV ENTRY ADDR OF PROGRAM 
I? 1442-5 SWITCH 

18 OBJECT WORK STORAGE DRIVE CODE 
70 AODR LARGEST HOLE IN FIXED AREA 
?! BLK CNT LARGEST HOLE IN FXA 

22 AODR LARGEST HOLE IN USER AREA 

73 BLK CNT LARGEST HOLE IN UA. 

24 DUP CALL SWITCH 

?5 PRINCIPAL I/O DEVICE INDICATOR 

26 PRINCIPAL PRINT DEVICE INDICATOR 

7? RLTV ADDR IN 'STRT OF CIL ADDR 

28 AVAILABLE CARTRIDGE INDICATOR 

?9 7750 INDICATOR 2G2 

30 NO. G7750 RECORDS 2G2 

31 LOCAL-CALLS-LOCAL SWITCH 2-2 

32 SPECIAL ILS SWITCH 2-2 

33 NO. OF ^EQUAT RCDS 2-4 
35 H-BLK ADDR END OF UA (ADJUSTED) 
40 ItaiK AODR END OF UA IBASEI 

45 FILE PROTECT ADDR 

50 CARTRIDGE ID, PHYSICAL DRIVE 

55 CARTRIDGE 10, LOGICAL DRIVE 

60 SCTR AODR OF CIB 

65 SCTR AODR OF SCRA 

70 FORMAT OF PROG IN WORKING STG 

75 SCTR AODH l&T SCTR OF FLET 

80 SCTR AODR 1ST SCTR OF LET 

85 BLK CNT OF PROG IN WORKING STG 

90 NO. SCTRS IN CUSHION AREA 



* EQUIVALENCES FOR PHASE ID NUMBERS 

* 



•MCRA EQU 
•SUP6 EQU 
'SUP? EQU 
'CLBO EQU 
•1403 EQU 
•1132 EQU 
•CPTR FQU 
•2501 EQU 
'1442 
•1134 
•KBCP 
'CDCV 
'PTCV 
•KBCV 
'DZID EQU 
'DUO EQU 
'ONID FCU 
'CIL I EQU 
'CIL2 EQU 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



110 PHASE 10 FOR MCRA 

115 PHASE ID FOR DUMP PROG 2-4 

115 PHASE ID FOR AUX SUPV 2-4 

120 PHASE ID FOR CLB, PHASE 0/1 

140 PHASE ID FOR SYS 1403 SUBR 

141 PHASE ID FOR SYS 1132 SUBR 

142 PHASE ID FOR SYS CP SUBR 

143 PHASE ID FOR SYS 2501 SUBR 

144 PHASE ID FOR SYS 1442 SUBR 

145 PHASE ID FOR SYS 1134 SUBR 

146 PHASE ID FOR SYS KB/CP SUBR 

147 PHASE 10 FOR SYS CD CQNV 

148 PHASE 10 FOR SYS 1134 CONV 

149 PHASE ID FOR SYS KB CONV 

150 PHASE ID FOR DISKZ 

151 PHASE ID FOR DISKI 

152 PHASE ID FOR DISKN 

160 PHASE 10 FOR CI LOADER, PH 1 

161 PHASE 10 FOR CI LOADER, PH 2 



* EQUIVALENCES FOR RESIDENT MONITOR 

* 

tLKNM EOU »HASH 

JRMSW EQU $HASH<'2 

$CXR1 EQU tHASH+3 

$CLSW EQU fHASH+4 

»DMPF EQU tHASH*S 

SACEX EQU tHASH4'6 

tCILA ECU $S150*1 

$IBT2 ECU tI70S<-l 

$1BT4 EQU »I405*-1 

tSNLT ECU lOBSY+l 

JPAUS EQU OZOOO-2 

$RWCZ EQU OZOOO-1 

tXR3X EQU $1496 



SAVE AREA FOR NAME OF LINK 
EXHr-LINK-DUMP SWl-l.a,*-!) 
SAVE AREA FOR XRI 
SW FOR CORE IMAGE LOR,PH 2 
DUMP FORMAT CODE 
ACC AND EXT WHEN ENTER DUMP 
AOOft OF END OF DK I /O - 3 
ADR OF SERVICE PART OF DKIO 
ADDR OF THE IBT 
SENSE LIGHT INDICATOR 
PAUSE, 1»JTERRUPT INDICATOR 
READ/WRITE SWITCH (CAROZ) 
XR3 SETTING DURING XEQ 2-2 



ID/SEQNO 

PHN08710 
PHN0a720 
PMN08730 
PNN08740 
PMN08750 
PMN08760 
PMN08770 
PMN08780 
PMN08790 
PMN08800 

PHNoaaio 

PMNOB820 

PMN08830 

PMN08840 

PMN08850 

PMN0B850 

PMN08870 

PMN08880 

PMNQa890 

PMN08900 

PMN08910 

PMN0S920 

PMN08930 

PMN08940 

PMN08950 

PMN08960 

PHN08970 

PMN08930 

PMN08990 

PHN09000 

PMN0900S 

PMN09010 

PMN09020 

PMN09030 

PMN09040 

PMN09050 

PHN09060 

PMN09070 

PWN09080 

PMN09090 

PMN09100 

PMN09110 

PMN09120 

PMN09130 

PMN09140 

PMN09150 

PMN09160 

PMN09170 

PMN09180 

PMN09190 

PMN09200 

PMN09210 

PMN09220 

PHN09230 

PMN09240 

PMN09250 

PMN09260 

PMN09270 

PMN09280 

PMN09790 

PMN09300 

PMN09310 

PMN09320 

PMN09330 

PMN09340 

PMN09350 

PMN09350 

PMN09370 

PMN09380 

PMN09390 

PMN09400 

PHN09410 

PMN09420 

PMN09430 

PMN09440 

PMN094SO 

PHN09460 

PHN09470 

PMN09480 

PMN09490 

PMN09500 

PMN09510 
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»nnR REL OBJECT ST. NO. 



0959 

0950 

0961 

0962 

09 63 

096't 

0965 

0956 

0967 

096« 

0969 

C970 

0971 

0972 

0973 

0974 

0975 

0976 

0977 

0978 

0979 

09BO 

0981 

0982 

0983 

098* 

0985 

0986 

0987 

0988 

09 89 

0990 

0991 

0992 

0993 

0994 

0995 

0996 

0997 

0998 

0999 

1000 

1001 

1002 

1003 

1004 

1005 

1006 

1007 

1008 

1009 

1010 

1011 

1012 

1013 

1014 

1015 

1016 

1017 



LABEL OPCO FT OPERANDS 



00 00 





ooni 





0002 





0003 





0006 





0007 





0000 





0000 





0001 





0002 





0003 





0004 





0005 





0005 





0007 





0008 





0009 





OOOA 





OOOB 





0011 





OOIA 





OOIC 





OOID 





0005 





0003 





0000 





0001 





0003 





0004 





0000 





0002 





0033 





0005 





0380 





04cn 





0500 





0011 





00F9 





OOF 7 





0010 





0003 





1000 





007F 





0004 





0005 





0001 





0008 






« EQUIVALENCES FOR ABSOLUTE SECTOR ADDRESSES 
* 

ADDR OF 

AODR OF 

ADDROOF 

ADDR OF 

AGDR 

AODR 

AODR 



MOAD EflU 

•DCQH EQU 

•RIAD EQU 

•SLET EQU 

'RTBL EflU 

•HONG EQU 

•STRT EQU 

* 

* EQUIVALENCES FOR THE CORE IHAGE HEADER 



OF 
OF 
OF 



SCTR 
SCTR 
SCTR 
SCTR 
SCTR 
SCTR 
SCTR 



MITH ID.DEF CYL AOR 
CONTAINING DCQM 
CONTAINING RES INGE 
CONTAINING SLET 
CONTAINING RELD TBL 
CONTAINING PAGE HOR 
H/ COLD START PROG 



•XEOA EQU 

•CMON EQU 1 

>OREQ EQU 2 

•FILE EQU 3 

•HHCT EQU 4 

•LSCT EQU 5 

•LDAO EQU 6 

'XCTL EQU 7 

'TVMC EQU 8 

•HCNT EQU 9 

•XR3X EQU 10 

•ITVX EQU 11 

•ILS4 EQU 17 

•OVSW EQU 26 

•CORE EQU 28 

•HENO EQU 29 
• 
* EQUIVALENCES FOR 



RLTV AODR OF CORE LOAD EXEC ADOR 
RLTV ADOR OF MD CNT OF COMMON 

ADDR OF DISK I/O INDICATOR 
ADOR OF NO. FILES DEFINED 
ADDR OF WO CNT OF CI HEADER 
CNT OF FILES IN WK STORAGE 
ADDR OF LOAO AODR CORE LOAD 
AODR OISKl/OISKN EXIT CTRL 
ADOR OF WD CNT OF TV 

WD CNT OF CORE LOAD 
EXEC SETTING OF XR3 
1ST WD OF ITV 
1ST WO OF 1BT4 
LQCAL/SOCAL SWITCH 
BUILDING SYSTEM 
LAST WO OF CI HOR 



RLTV 
RLTV 
RLTV 
SCTR 
RLTV 
RLTV 
RLTV 
RLTV 
RLTV 
RLTV 
RLTV 
RLTV 
CORE 
RLTV 



ADOR OF 

ADOR OF 

AODR OF 

AODR 

ADOR 

SIZE 

AODR 



OF 
OF 
OF 
OF 



LET/FLET 



•LFHO 
•LFEN 

•SCTN 
•UAFX 
•WOSA 
•NEXT 
'LFNM 
•BLCT 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



WORD COUNT OF LET/FLET HEADER 
NO OF WDS PER LET/FLET ENTRY 
RLTY ADDR OF LET/FLET SCTR NO. 
RLTV ADOR OF SCTR AODR OF UA/FXA 
RLTV ADOR OF WDS AVAIL IN SCTR 
RLTV ADOR OF ADOR NEXT SCTR 
RLTV ADDR OF LET/FLET ENTRY NAME 
RLTV ADDR OF LET/FLET ENTRY DBCT 



* MISCELLANEOUS EQUIVALENCES 



•ISTV 

•HXOR 

•COMZ 

•COHl 

•COM2 

•TCNT 

•DKEP 

•OKTP 

•SCIB 

•HCIB 

•MCOR 

Y 

* 

•CIDN 

'COPY 

■DCTB 

•OTYP 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 

EQU 
EQU 
ECU 
EQU 



51 ISS NO. ADJUSTMENT FACTOR 2-1 

5 MAX NO. DRIVES SUPPORTED 

895 LOW COMMON LIMIT FOR OISKZ 
1216 LOW COMMON LIMIT FOR OISKl 
1536 LOW COMMON LIMIT OF OISKN 
17 NO. TRIES BEFORE OtSK ERROR 
OZOOO+7 LIBF ENTRY TO DISKl/N 
DZ000*5 DISK I/O INTERRUPT ENTRY PT 



16 CIB SECTOR COUNT 2-2 

3 HIGH COMMON SECTOR COUNT 2-2 
4096 SIZE OF MINIMUM CORE Z-2 
127 

4 RLTV ADOR CARTRIDGE ID 2-2 

5 RLTV AODR COPY INDICATOR 2-2 
1 RLTV ADDR DEFECTIV CYL TBL 2-2 
8 RLTV ADDR DISK TYPE I NOR 2-2 



ID/SEQNO 

PMN09S20 
PMN09530 
PMN09540 
PMN09550 
PMN09560 
PMN09570 
PMN09S80 
PHN09590 
PMN09600 
PHN09610 
PMN09520 
PMN09530 
PMN09640 
PHN09550 
PMN09660 
PMN09670 
PHN09680 

PNN09690 
PMN09700 
PMN09710 
PMN09720 
PMN09730 
PMN09740 
PMN09750 
PMN09760 
PMN09770 
PMN09780 
PMN09790 
PMN09800 
PMN09810 
PHN09820 
PMN09830 
PMN09840 
PNN09850 
PMN09850 
PMNQ9a70 

PMNogsao 

PMN09890 
PMN09900 
PMN09910 
PMN09920 
PMN09930 
PMN09940 
PHN09950 
PHN09960 
PMN09970 
PMN09980 
PMN09990 
PMNIOOOO 
PMNIOOIO 
PMN10020 
PMN10030 
PMN10040 
PMN10050 
PMN10060 
PMN10070 
PMN10080 
PMN10090 
PMNIOIOO 
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COLD START PROGRAM 

AOrm R6L OBJECT ST. NO. 

1019 
1020 
1021 
102? 
102H 
1024 
102 5 
1026 
1027 
1028 
1029 
1030 
1031 

lo^2 

1033 
103* 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1048 
1049 
1050 
1051 
1052 
1053 
1054 
1055 
1056 
1057 
105S 
1059 
1060 
1061 
1062 
1063 
1064 
1065 
1066 
)057 
106B 
1069 
1070 
1072 
1073 
1074 
617F 1075 

Cfl2e 1076 

nC000004 1077 

0125 107fl 

Clf!4 1079 

0120 1080 

0029 1081 

ri56 1082 

OOFl 1083 

COFfl 1084 

IB90 1085 

nl6F 1086 

01 IB 1087 

4173 1088 

3000 1089 

1090 
1091 
1092 
OlFO 1810 1093 

OlFl niB3 1094 

01F2 C81B 1095 

01F3 0985 1096 

01F4 COIC 1097 

01 F5 0120 1098 

01F6 C016 1099 

01F7 Olfll 1100 

1101 
1102 



OlEO 

01 El 

01E2 00 

01 E4 

01E5 

01 E6 

01E7 

01 Ea 

01 FQ 

OlEA 

01FR 

01 EC 

01 ED 

OlEE 

01 EF 



LABEL OPCO FT OPERANDS 



lO/SEQNO 



*********************9**t****t**************t:i,***t* PNN10120 



* 
♦STATUS 



VERSION 2, MODIFICATION LEVEL 5. 



* PMN10130 

* PMN10140 

• PMN10150 

• PMN10150 
PMN10170 



♦FUNCTTON/QPERATION - 

* THIS PROGRAM IS READ INTO CORE FROM SECTOR 

* OF THE SYSTEM CARTRIDGE AND TRANSFERRED TO Br * PMNIOIBO 

* THE COLO START CARD. DEFECTIVE CTLINDER * PHN10190 

* ADDRESSES, CARTRIDGE ID ANI> 01 SKZ ARE ALSO ON * PMN10200 

* SECTOR AND ARE READ IN AT THE SAME TIME. * PMN10210 
ALL THAT RFMAINS FOR THE COLD START PROGRAM IS* PMN10220 



TO READ IN THE RESIDENT IMAGE, SAVE THE 
CARTRIDGE ID AND TRANSFER TO THE AUXILIARY 
SUPERVISOR THROUGH iOUMP IN THE RESIDENT 
MONITOR. 



* 
* 

♦ENTRY - CROlO-2 

♦ ENTER PROGRAM BY TRANSFER FROM COLO START CARD* PMNio290 

» PMN10300 



PMN10230 
PMN10240 
PMN10250 
PMN10260 
PMN10270 
PMN10280 



♦INPUT - 

♦ THE CARTRIDGE ID OF LOGICAL DRIVE ZERO (THE 

♦ SYSTEM CARTRIOGEl IS READ IN FROM SECTOR 

♦ WITH THE COLD START PROGRAM. 
♦ 

♦OUTPUT - 

♦ ♦ THE RESIDENT IMAGE IS READ INTO CORE FROM 

♦ THE DISK. 

♦ ♦IN COMMA- 

♦ tACDE 

♦ «CI8A-l 
» SCION 

♦ tCYLN 

♦ tDBSY 

♦ *IOCT 
♦ 

♦EXTERNAL REFERENCES - 

♦ DZOOO SUBROUTINE TO PERFORM DISK I/O. 

* 

♦EXITS - 

♦ THE ONLY EXIT IS TO THE AUXILIARY SUPERVISOR 

♦ AS FOLLOMS- 

♦ BSI tDUHP 

♦ DC -1 
♦ 

♦TABLFS/HORK AREAS - N/A 



PMN10310 
PMN10320 
PMN1033O 
PMN10340 
PHN10350 
PMN10360 
PMN10370 
PMN10380 
PMN10390 
PMN10400 
PMN10410 
PMN10420 
PMN10430 
PMN10440 
PHN10450 
PMN10460 
PMN10470 
PMN10480 
PMN10490 
PMN10500 
PHN10510 
PHN10520 
PMN10530 
PMN10540 
PMN10550 
PMN10560 
PMN10570 
PMN10580 
PMN10590 
PMN10600 
PMN10610 
PMN10620 



♦ATTRIBUTES - 

♦ THIS PROGRAM IS NOT NATURALLY RELOCATABLE. 
♦ 
♦NOTES - 

♦ DISK ERRORS RESULT IN A WAIT AT »PST2. 
*******«*«,*^««,«„****,*^,„,,»^»,,^,^^^,,^^^^^^^^ PMN10630 

♦ READ THE RESIDENT IJ<AGE INTO CORE PHN10660 

PMN10670 

' * PMN10680 

PMN10690 
PMN 10700 
PMN10710 



LDX 
LDD 
CROIO STD 
STO 
LD 
STO 
STO 
LD 
STO 
LD 
SRT 
STO 
STO 
BSI 
WAIT 



Y 

CR920 

$CTBA-1 

tDCVL-Y 

3-Y 

tACOE-V 

CR920+1 



SET UP WORD COUNT AND SCTR 

♦AODR OIF RESIDENT IMAGE 

♦INITIALIZE OEF CYL NO. 1 

FETCH LOG DRIVE AREA CODE PMN10770 

♦AND STORE IT IN COMMA PHN10730 

SAVE THE AREA CODE PMN10740 

1 DZ000-2-27-Y FETCH AND SAVE THE PMN10750 

tCIDN ♦CARTRIDGE ID PMN10760 

CROIO* 1 FETCH CORE AODR OF RESIDENT PMN10770 

16 ♦IMAGE AND PUT IN EXTENSION PMNI0780 

1 tOBSY-Y CLEAR DISK BUSY INDICATOR PMN10790 

I *CYLN-Y INITIALIZE ARM POSITION 

1 DZOOO-Y FETCH RESIDENT IMAGE 

HAIT OUT THE INTERRUPT 



♦ INITIALIZE ITEMS IN COMMA 



CLEAR IOCS COUNTER 



PMN10800 
PMN10810 
PMN10820 
PHN10830 
PNN10840 
PMN10850 
PMN10860 
PMN10870 
PMN10880 



SRA 16 

STO 1 JIOCT-Y 

LOO CR9I0 

STO 1 tCIBA-l-Y *FOR SAVING CORE ON THE CIB PHN10390 

LD CR920+1 FETCH AREA CODE PMN10900 

STO 1 $ACOE-Y RESET AREA CODE PMN10910 

LD CR905 INITIALIZE MD ZERO TO BR TO PMN10920 

STO 1 0-v ♦DUMP EMTRY POINT PLUS 1 PMN10930 

* . PMN10940 

♦ TRANSFER TO THE AUXILIARY SUPERVISOR PMN109S0 
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AODR REL OBJECT ST. NO. LABEL OPCO FT OPERANDS ID/SESNO 

INITIALIZATION PMN10960 

PMN10970 
01F9 iHCO 1105 BSI 1 $DUMP-y BR TO AUXILLIARY SUPERVISOR PHN109aO 

01F9 FFFF 1106 DC -1 *FOR JOB PROCESSING PMN10990 

PHNllOOO 
OlFA 0013 1108 BSS 1^ PATCH AREA PMNllOlO 

PMN11020 
NO WORK AREAS PHN11030 

PMN11040 
$0UMP+1-1 TO BE STORED IN LOCN ZERO PMN11050 
WC CNT.SCTR AODR OF 2-5 PMN11060 

•HONG *HARMLESS WRITE TO DISK PMN11070 

$nBSy-tCHl2 WD CNT AND SCTR PMNllOflO 

•RIAD *AODR OF RESIDENT IMAGE PMN11090 

* PHNlllOO 

CROSS-REFERENCE 



O'OD 





703F 


020E 





0000 


070F 





0007 


0210 





OOFB 


0211 





0002 


0217 




0212 



1103 


* TO COHPI 


1104 


* 


1105 


BSI 


1106 


DC 


1107 


* 


1108 


BSS 


1109 


* 


1110 


* CONSTAN' 


1111 


* 


1112 


CR905 MDX 


1113 


CR910 DC 


1114 


DC 


1115 


CR920 DC 


1116 


nc 


1117 


END 



SYMBOL 


VALUE 


REL 


OEFN 


REFERENCES 






CROIO 


01E2 





1077 


1084 








CR905 


020D 





1112 


1099 








CR910 


020E 





1113 


1095 








CR920 


0210 





1115 


1076 


1081 


1097 




OZOOO 


0OF2 





0610 


0323 


0350 


0627 


0646 


OZOIO 


00F7 





0617 


0628 


0641 






0Z070 


0CF9 





0619 


0613 








OZ030 


OOFF 





0625 


0663 








nzo60 


0104 





0630 


0650 








DZ070 


0106 





0634 


0813 


C819 


0845 


0853 


Dzino 


0108 





0639 


0619 


0670 


0715 




DZ1B0 


OlOE 





0645 


0618 


0634 






0Zlfl5 


0116 





0651 


0R26 








OZ190 


OllD 





0660 


0770 








DZ210 


0146 





0711 


0833 








DZ215 


014C 





0719 


0784 








DZ220 


014E 





0724 


0787 








02 230 


0152 





0730 


0629 








nZ'35 


0154 





0731 


0674 


C654 






02240 


0159 





0735 


0864 








DZ250 


0168 





0750 


0758 








DZ2a0 


0169 





0751 


0737 


0743 


0744 


0745 


DZ300 


0174 





0763 


0753 








OZ330 


0179 





0767 


0739 








DZ340 


0188 





0781 


0726 








0Z350 


0190 





790 


0662 


0741 


0824 




D7380 


019D 





0805 


0802 








DZ385 


01A2 





0810 










OZ390 


01 A5 





0813 


0809 








0Z400 


OlAF 





0831 


0792 








07410 


OlBl 





0833 


0858 








DZ900 


0122 





0669 


0677 


0804 






DZ901 


0123 





0670 


0823 








0Z902 


0124 





0671 


0651 


0733 


0854 


C851 


DZ904 


0126 





0673 


0635 


C805 


0812 


0818 


DZ905 


0127 





0674 


0850 








DZ906 


0178 





0675 


0747 


C840 






OZ907 


0129 





0676 


0774 








OZ90S 


017A 





0677 


0817 








DZ909 


012B 





0678 


0771 








07910 


012C 





0679 


0647 


C769 


0781 


0799 


DZ911 


0170 





0680 


0779 








0Z912 


012E 





0681 


0658 


0734 


0780 


0831 


DZ91 3 


012F 





0692 


0764 








DZ914 


0130 





0683 


0719 








0Z915 


oni 





0684 


0659 








0Z916 


0132 





0685 


0834 








DZ920 


0134 





0687 


0775 








0Z975 


0135 





0688 


0770 








DZ930 


01'6 





0689 


0755 








DZ935 


0137 





0690 


0724 








DZ940 


0138 





0691 


0749 








DZ945 


0139 





0692 


0622 


0773 


0775 


C851 


0Z950 


013A 





0693 


0778 








DZ955 


013B 





0694 


0765 








DZ960 


013C 





0695 


0742 








n7965 


0130 





0696 


0738 









0707 0753 0955 0955 1007 1008 1082 108 



0756 



0841 



0835 0856 0862 
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SYMBOL VALUE REL DEFN 



0Z970 
0Z175 
0Z9B0 
02985 
r)/<9<»0 
0Z995 
t*CDE 
tACEX 

$ccAr» 

tCH12 

tCIBA 

»CION 

tCILA 

»CLSW 

tCHMN 

tCORE 

tCPTR 

iCTSW 

»CHCT 

tCXRl 

tCYLN 

tOAOR 

tDBSY 

tOCDE 

SnCYL 

$DDSW 

SnMPF 

liDREQ 

SOUMP 

SDZIN 

SEX IT 

SFLSH 

SFPAD 

SGCOM 

SGRIN 

«HASH 

SIBSV 

SIBT2 

«IBT4 

SIOCT 

SIREO 

$1200 

$1205 

*I210 

lil2<J0 

$1400 

liI403 

tI405 

tftlO 

1iI420 

»I«25 

tI490 

tI492 

*I494 

II 496 

*KCSW 

tLAST 

JLEVO 

ILEVl 

»LEV2 

tLEV-1 

»LEV4 

tLEV5 

SLINK 

SLKNH 

tLSAD 

tNnUP 

SNXEQ 

IPAUS 

4PBSY 

SPGCT 

SPHSE 

JPRET 

»PST1 

«PST2 

$PST} 

$PST4 

»RMSW 

$RMCZ 



onE 

013F 

0140 

0141 

0142 

014? 

009F 

OOIA 

0074 

0006 

0005 

OIOB 

005A 

OOIB 

0007 

OOOE 

007E 

OOOF 

0072 

0017 

009A 

0010 

OOEF 

0077 

00A4 

OODD 

0019 

0012 

003F 

0076 

003S 

0071 

0095 

006 3 

0064 

0014 

0013 

00B9 

00D4 

0032 

002C 

00B3 

00R8 

008A 

OOC? 

00C4 

OODO 

0003 

0005 

00E6 

OOEA 

OOOE 

OOEO 

00E2 

O0E4 

007C 

0033 

0008 

0009 

OOOA 

OOOB 

OOOC 

0000 

0039 

0014 

0075 

0034 

0035 

OOFO 

0036 

0037 

0078 

0028 

0081 

0085 

0089 

OOflO 

0016 

OOFl 




































































































































0697 

0598 

0699 

0700 

0701 

0702 

0437 

0950 

364 

0254 

0253 

0871 

0951 

0948 

0255 

0257 

0374 

0268 

0362 

0947 

0427 

0269 

0S52 

0357 

0448 

0530 

0949 

0271 

0316 

0366 

0302 

0360 

0418 

0354 

0355 

0273 

0272 

0952 

0953 

0293 

0287 

0474 

0480 

0481 

0486 

0506 

0515 

0520 

0521 

0545 

0548 

0531 

0532 

0535 

0542 

0372 

0294 

0259 

0260 

0261 

0252 

0263 

0254 

0306 

0945 

0355 

0295 

0296 

0955 

0297 

0298 

0358 

0282 

0380 

0385 

0392 

0398 

0946 

0956 



REFERENCES 

0740 
0777 
0758 
0838 
0766 
0803 
0595 
0317 



CS49 



0772 0843 



C597 1080 1098 



1115 

0311 
1083 
0348 



0330 
0514 
0251 
0952 
0475 
0478 
0253 
0513 
0953 
0508 



0340 
0346 



1077 1095 



0319 

0595 0697 1087 

0611 0526 0653 0712 09S4 1085 1115 

0595 1078 

0648 C7g? 0805 

0321 

0320 0548 1105 1112 



0945 0946 0947 0948 0949 0950 



0284 
0382 
0338 
0394 
0400 
0339 



0713 0730 1094 



0485 

0475 
0484 
0525 



0477 



C509 0510 



0547 

0507 0524 

0511 

0517 

0546 0957 



0725 



C660 
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SYHROl 


VALUE 


REL 


DEFN 


REFERENCES 


$SCAN 


0020 





0276 






$SCAT 


0011 





0270 


0331 




$SNLT 


OOEF 





0954 






iSTOP 


00<JI 





0405 


0264 


0407 


$svsc 


OOEO 





0533 






»sooo 


0052 





0338 


0302 




*S100 


0053 





0339 


0308 


0325 


tS150 


005<) 





345 


0951 




$S200 


005E 





0349 






tS?50 


004B 





0329 


0318 


0333 0347 0351 


tS300 


004C 





0330 


0332 




ts<»oo 


003C 





0310 


0322 


0324 


$S<>10 


003E 





0312 


0338 




tUFOR 


007D 





0373 






tUflO 


0079 





0369 






tULET 


0020 





0288 






»WRD1 


0078 





0371 






tWSOR 


007A 





0370 






$XR3)( 


00F4 





0957 






*7.END 


OlEO 





0875 


0604 


0606 


»1132 


007F 





0375 






$1403 


0080 





0376 






X2 


00F2 





0707 


0660 
0779 
0831 
0852 


0764 0765 0765 0768 0769 
C780 0781 0782 0799 0803 
0834 0835 0838 0840 0841 


V 


007F 





1012 


1075 


1078 1079 1080 1082 1086 


fACIN 


OOIC 





0902 






iANDU 


0023 





0908 






#BNOU 


0078 





0909 






fCBSW 


OOOA 





0885 






«CIAD 


OOIB 





0901 






HCIBA 


003C 





0913 






iCIDN 


0037 





0912 






•CSHN 


005A 





0919 






IDBCr 


0006 





088! 






iOCSW 


0018 





0898 






»ECNT 


0071 





0907 






*ENTY 


0010 





0891 






(PFCNT 


0007 





0887 






iFHOL 


0014 





0894 






*FLET 


004 B 





0916 






#FMAT 


0046 





0915 






#FPAD 


0070 





0910 






#FSZE 


0015 





0895 






#GCNT 


001 E 





0904 






#GRPH 


ooin 





0903 






*JBSM 


0009 





0884 






l»LCNT 


OOOB 





0886 






«ILOSW 


OOIF 





0905 






#H0F1 


0000 





0888 






iMOF? 


OOOE 





0889 






#MPSH 


OOOC 





0887 






#NAME 


0004 





0880 






#NCNT 


OOOF 





0890 






#pcin 


0037 





0911 






iPIOD 


0019 





0899 






iPPTR 


OOIA 





0900 






#RP67 


0011 





0892 






»SCRA 


0041 





0914 






#SYSC 


0008 





0883 






#TOOR 


0012 





0893 






DUHOL 


0016 





0896 






*ULET 


0050 





0917 






muszE 


0017 





0897 






#WSCT 


0055 





0918 






»X3SH 


0020 





0906 






'BLCI 


000? 





0997 






TOCV 


0093 





0934 






'CIDN 


0004 





1014 






•CILl 


OOAO 





0940 


0870 




'C!L2 


OOAl 





0941 






•CLRO 


0078 





0926 






•CHON 


0001 





0972 






•CCM7 


0380 





1003 






■COMl 


04C0 





1004 






'CQM2 


0600 





1005 






•ropv 


0005 





1015 







0769 0770 0771 0772 0773 0774 



0775 0776 0777 07T8 
0817 OSIB 0819 0823 
0861 



0804 0805 0806 0812 0813 

0843 0845 0849 0850 0851 0853 0854 0856 

1087 1088 1094 1096 1098 1100 1105 
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SYMBOL 


VALUE 


REL 


DEFN 


REFERENCES 


•CORE 


OOIC 





0985 




•CPTR 


008E 





0929 




•OCOM 


0001 





0962 




•DCTB 


0001 





1016 




•OKEP 


00F9 





1007 




•OKIP 


00F7 





1008 




•ONID 


009 B 





0939 




•OREQ 


0002 





0973 




•OIVP 


0008 





1017 




•nziD 


0096 





0937 


0605 


■DllD 


0097 





0938 




•FILE 


0003 





0974 




■HCI9 


0003 





1010 




■HONG 


000 7 





0966 


1114 


•HENO 


0010 





0986 




'HWCT 


0004 





C975 




■ro4D 


0000 





0961 




•ILS<^ 


0011 





0983 




MSTV 


0033 





1001 




•ITVX 


OOOB 





0982 




•KflCP 


0092 





0933 




•KBCV 


0095 





0936 




•LOAD 


0006 





0977 




•LEEN 


0003 





0991 




•LFHO 


0005 


c 


0990 




•LFNM 


0000 





0996 




•LSCT 


0005 





0976 




'HCOR 


1000 





1011 




•MCRA 


006E 





0923 




'MXDR 


0005 





1002 




•NEXT 


0004 





0995 




•OVSW 


OOIA 





0984 




•PTCV 


0094 





0935 




•RIAD 


0002 





0963 


1116 


•RTBL 


0006 





0965 




•SCIB 


0010 





1009 




•SCTN 


0000 





0992 




•SLET 


0003 





0964 




'STRT 


0000 





0967 




•SUP6 


0073 





0924 




•SUP? 


0074 





0925 




•TCNT 


0011 





1006 


0625 


•TVWC 


0008 





0979 




•IJAFX 


0001 





0993 




•wr.NT 


0009 





0980 




•WOSA 


0003 





0994 




•XCTL 


0007 





0978 




•XEQA 


0000 





0971 




•XR3X 


OOOA 





0981 




•1132 


OOBD 





0928 




•1134 


0091 





0932 




•1A03 


OORC 





0927 




•1442 


0090 





0931 




•2501 


018F 





0930 
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APPEKDIX C. ABBREVIATIONS 



Below is a list of the abbreviations used in the 
listings of the 1130 Disk Monitor System, Version 
2. Included in this list are the abbreviations used 
in current 1130 and 1800 systems. 



Abbreviation 


Meaning 


ABS 


Absolute 


ACC 


Accumulator, Accumulate 


ACCT 


Account 


ACT 


Actual 


ADDL 


Additional 


ADDR 


Address 


ADJ 


Adjust 


ADV 


Advance 


AI 


Analog Input 


ALG 


Algebraic 


ALLOC 


Allocate 


ALLOCN 


Allocation 


ALPHA 


Alphabetic 


ALT 


Alternate, Alteration 


AO 


Analog Output 


APPDGE 


Appendage 


APPROX 


Approximate 


ARITH 


Arithmetic 


ASDNG 


Ascending 


ASM 


Assembler 


ASMBL 


Assemble 


ASGN 


Assign 


AUX 


Auxiliary 


AVAIL 


Availability 


AVG 


Average 


BEGNG 


Beginning 


BFR 


Buffer 


BKSP 


Backspace 


BLK 


Block 


BLKCNT 


Block Count 


BLNK 


Blank 


BR 


Branch 


BM 


Buffer Mark 


CAD 


Core Address 


CALC 


Calculate, Calculator 


CAR 


Channel Address Register 


CARR 


Carriage 


CART 


Cartridge 


CAT 


Catalog 


CATLGD 


Cataloged 



Abbreviation 


Meaning 


CC 


Card Column 


CD 


Card 


CDE 


Code 


CHAN 


Channel 


CHAR 


Character 


CHK 


Check 


CHG 


Change 


CHKPT 


Checkpoint 


CIB 


Core Image Buffer 


CIL 


Core Image Loader 


CLB 


Core Load Builder 


CLD 


Core Load 


CLR 


Clear 


CLS 


Close 


CMN 


COMMON 


CMP 


Compare 


CMPL 


Complement 


COMMA 


Communication Area 


COMP 


Compute 


CNSL 


Console 


CNT 


Count 


COL 


Column 


COMM 


Communication 


CON 


Constant 


COND 


Condition 


CONT 


Continue 


CORR 


Correction 


CP 


Console Printer, Control Parameter 


CPLD 


Coupled 


CPTN 


Computation 


CTR 


Counter 


C'l'KL 


Control 


CURR 


Current 


CVRT 


Convert 


CYL 


Cylinder 


DAO 


Digital-Analog Output 


DB 


Disk Block 


DC 


Data Channel 


DCMT 


Document 


DEC 


Decision 


DECML 


Decimal 


DECR 


Decrement 


DEF 


Defective 


DEFN 


Define 


DEL 


Delete 


DESCG 


Descending 
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Abbreviation 


Meaning 


Abbreviation 


Meaning 


DETM 


Determine 


FREQ 


Frequency 


DEVC 


Device 


FUNC 


Function 


DGT 


Digit 


FWD 


Forward 


DI 


Digital Input 


FXA 


Fixed Area 


DICT 


Dictionary 


FXD 


Fixed 


DIM 


Dimension 






DIRCTY 


Dlrectory 


GEN 


Generator 


DISP 


Displacement 


GENL 


General 


DISPCHG 


Dispatching 


GM 


Group Mark 


DK 


Disk 


GT 


Greater Than 


DLMTER 


Delimeter 


GTE 


Greater Than or Equal To 


DPC 


Direct Program Control 






DR 


Drive 


HDLER 


Handler 


DSW 


Device Status Word 


HDR 


Header 


DT 


Defective Track 


HEX 


Hexadecimal 


DUP 


Disk Utility Program 


HI 


High 


DUPCTN 


Duplication 


HLT 


Halt 






HSK 


Housekeeping 


EBC 


EBCDIC 


HYPER 


Hyper tape 


ELIM 


Eliminate 






ELT 


Element 


lAR 


Instruction Address Register 


ENT 


Entry 


IC 


Instruction Counter 


EOF 


End Of File 


ID 


Identification 


EOJ 


End Of Job 


IDX 


Index 


EOR 


End Of Reel 


ILS 


Interrupt Level Subroutine 


EP 


Extended Precision 


ILSW 


Interrupt Level Status Word 


EQ 


Equal, Equate 


INCR 


Increment 


EQU 


Equate 


IND 


Indicate 


ERP 


Error Parameter 


INDN 


Indication 


ERR 


Error 


INDR 


Indicator 


ES 


Electronic Switch 


INFO 


Information 


ETV 


Executive Transfer Vector 


INITLZ 


Initialize 


EVAL 


Evaluate 


INQ 


Inquire 


EXCH 


Exchange 


INT 


Initial 


EXEC 


Execute 


INTFCE 


Interface 


EXP 


Exponent 


INTLD 


Interlude 


EXPR 


Expression 


INTM 


Interim 


EXTYP 


Exit Type 


INTMD 


Intermediate 


EXTR 


Extract 


INTNL 


Internal 






INTRPT 


Interrupt 


FAC 


Floating Accumulator 


I/O 


Input/Output 


FOR 


FORTRAN 


lOAP 


I/O Area Parameter 


FIO 


FORTRAN I/O 


lOCC 


I/O Control Command 


FLD 


Field 


lOCR 


I/O Control Routine 


FIJDL 


Field Length 


INST 


Instruction 


FIG 


Figure 


INTERP 


Interpret 


FLET 


The Location Equivalence Table 


INVAL 


Invalid 




for the Fixed Area 


ISS 


Interrupt Service Subroutine 


FLT 


Floating 


ITER 


Iterate, Iteration 


FMT 


Format 


ITG 


Integer 


FR 


From 


I/P 


Input 
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Abbreviation 


Meaning 
Keyboard 


Abbreviation 
OPN 


Meaning 


KB 


Open 


KP 


Keypunch 


OPND 


Operand 






OPTN 


Option 


LBL 


Label 


OPTR 


Operator 


LCT 


List Control Table 


ORG 


Origin 


LD 


Load 


OVFLO 


Overflow 


LET 


Location Equivalence Table for 


OVLP 


Overlap 




User Area 


OVLY 


Overlay 


LFT 


Left 






LH 


Left-Hand, Leftmost 


PAPT 


Paper Tape 


LINKB 


Link/Busy Word 


PARAM 


Parameter 


LIT 


Literal 


PARTL 


Partial 


LN 


Line 


PERF 


Perforate, Perforated, Perforation 


LNG 


Length 


PERPHL 


Peripheral 


LO 


Low 


PFM 


Perform 


LOG 


Location 


PG 


Page 


LOCAL 


Load-on-Call Subroutine 


PGLIN 


Page and Line 


LT 


Less Than 


PH 


Phase 


LTE 


Less Than or Equal To 


PHYS 


Physical 


LTR 


Letter 


PK 


Pack 


LVL 


Level 


PKD 


Packed 






PNCH 


Punch 


MACH 


Machine 


PNDG 


Pending 


MAGT 


Magnetic Tape 


POS 


Position 


MAINT 


Maintain, Maintenance 


PR 


Print 


MALF 


Malfunction 


PREC 


Precision 


MAX 


Maximum 


PREV 


Previous 


MEM 


Memory 


PRGE 


Purge 


MIN 


Minimum 


PRI 


Priority 


MISC 


Miscellaneous 


■PRINC 


Principal 


ML 


Mainline 


PROC 


Process 


MN 


Mnemonic 


PROG 


Program 


MOD 


Modification 


PROT 


Protect 


MON 


Monitor 


PRTN 


Partition 


MPXR 


Multiplexor 


PRVNT 


Prevent 


MPY 


Multiply 


PT 


Pointer, Point 


MRGE 


Merge 


PTR 


Printer 


MSG 


Message 


PTV 


Positive 


MSTR 


Master 










QUALFD 


Qualified 


NEC 


Necessary 


QUANT 


Quantity 


NEG 


Negative 


QUE 


Queue 


NO, 


Number 






NORM 


Normalize, Normalized 


RAND 


Random 


NUM 


Numeric 


R + S 


Reset and Start 


NXT 


Next 


R/W 


Read/Write 






RCD 


Record 


OBJ 


Object 


RCV 


Receive 


OP 


Operation 


RD 


Read 


O/P 


Output 


RDY 


Ready 
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Abbreviation 


Meaning 


Abbreviation 


Meaning 




REF 


Reference 


SUB 


Subtract 




REG 


Register 


SUBP 


Subprogram 




REL 


Release 


SUBR 


Subroutine 




RE LOG 


Relocate, Relocatable 


SUBSC 


Subscript 




REQ 


Request, Require 


SUMM 


Summarize 




RET 


Return 


SUP 


Suppress 




RH 


Right-Hand, Rightmost 


SUP 


Supervisor 




RI 


Read in 


SYNC 


Synchronize, Synchronizer 




RLS 


Reels 


SYM 


Symbol 




RLTV 


Relative 


SYSRx 


System Reserved Word (x is 


a digit) 


RM 


Record Mark 


SYST 


System 




RO 


Read Out 


SW 


Switch 




RPT 


Report 








RSLT 


Result 


TBL 


Table 




RST 


Reset 


TECHNQE 


Technique 




RSTRT 


Restart 


TEMP 


Temporary 




RT 


Right 


TERM 


Terminal, Terminate 




RTE 


Route 


TM 


Tapemark 




RTN 


Routine 


TMN 


Transmission 




RWD 


Rewind 


TMT 
TOT 


Transmit 
Total 




SAD 


Sector Address 


TP 


Tape 




SAT 


Satellite 


TR 


Transfer 




SAR 


System Action Required 


TRK 


Track 




SCHED 


Schedule, Scheduler 


TRLR 


Trailer 




SON 


Scan 


■I'KUNC 


Truncate, Truncation 




SCTR 


Sector 


TST 


Test 




SECT 


Section 


TU 


Tape Unit 




SEL 


Select 


TV 


Transfer Vector 




SEN 


Sense 


TW 


Typewriter 




SEQ 


Sequence 








SEQNO 


Sequence Number 


UA 


User Area 




SER 


Serial 


UAR 


User Action Required 




SEG 


Segment 


UFLO 


Underflow 




SIG 


Signal 


UNC 


Unconditional 




SIM 


Simulator 


UNLD 


Unload 




SK 


Skeleton 


UNPKD 


Unpacked 




ST.ET 


System Location Equivalence Table 


UTIL 


Utility 




SM 


Storage Mask 








SNGL 


Single 


V 


Version 




SOCAL 


System Load-On-Call Subroutine 


VAL 


Value 




SP 


Space 


VAR 


Variable 




SRCH 


Search 


VIOL 


Violation 




SPEC 


Specification, Specify 


VOL 


Volume 




ST 


Store 








STA 


Station 


WD 


Word 




STD 


Standard 


WM 


Word Mark 




STG 


Storage, Storing 


WR 


Write 




STMNT 


Statement 


WRK 


Work 




STP 


Standard Precision 


WS 


Working Storage 
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Abbreviation 


Meaning 


W/ 


With 


w/o 


Without 


XPL 


Explain, Explanation 


XRl 


Index Register 1 


XR2 


Index Register 2 


XR3 


Index Register 3 


X'i'K 


Extra 


Z 


Zero 


ZN 


Zone 



Abbreviation 




1st 


First 


2nd 


Second 


3rd 


Third 


4th 


Fourth 


5th 


Fifth 


6th 


Sixth 


7th 


Seventih. 


8th 


Eighth 


9th 


Ninth 



Meaning 
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APPENDIX D. MICROFICHE REFERENCE TABLE 



Disk Monitor 


Microfiche 


System Component 


Identification 


System Loader 




(Paper Tape) 




Bootstrap 


BAA. 001. 00 


Phase 1 


BAA. 002. 00 


Phase 2 


BAA. 003. 00 


System Loader (Card) 




Bootstrap 


BAA. 004. 00 


Core Image Loader 


BAA. 005. 00 


Phase 1 


BAA. 006. 00 


Phase 2 


BAA. 007. 00 


Disk Utility Program 




DUPCO 


JAA.001.00 


DCTL 


JAA. 002. 00 


STORE 


JAA.003.00 


FILEQ 


JAA. 004. GO 


DDUMP 


JAA. 005. 00 


DMPLT 


JAA. 006. 00 


DELET 


JAA. 007. 00 


DFINE 


JAA. 008. 00 


DEXIT 


JAA. 009. 00 


CDFAC 


JAA. 010. 00 


KBFAC 


JAA. Oil. 00 


PTFAC 


JAA. 012. 00 


PRE CI 


JAA. 013. 00 


FORTRAN Compiler 




Phase 1 


KAA. 001.00 


Phase 2 


KAA.002.00 


Phase 3 


KAA. 003. 00 


Phase 4 


KAA. 004. 00 


Phase 5 


KAA. 005. 00 


Phase 6 


KAA. 006. 00 


Phase 7 


KAA. 007. 00 


Phase 8 


KAA. 008. 00 


Phase 9 


KAA. 009. 00 


Phase 10 


KAA. 010. 00 


Phase 11 


KAA. Oil. 00 


Phase 12 


KAA. 012. 00 


Phase 13 


KAA. 013. 00 


Phase 14 


KAA. 014. 00 


Phase 15 


KAA. 015. 00 


Phase 16 


KAA. 016. 00 



Disk Monitor 


Microfiche 


System Component 


Identification 


Phase 17 


KAA. 017. 00 


Phase 18 


KAA. 018. 00 


Phase 19 


KAA. 019.00 


Phase 20 


KAA. 020. 00 


Phase 21 


KAA. 021. 00 


Phase 22 


KAA. 022. 00 


Phase 23 


KAA. 023. 00 


Phase 24 


KAA. 024. 00 


Phase 25 


KAA. 025. 00 


Phase 26 


KAA. 026. 00 


Phase 27 


KAA. 027. 00 


Assembler Program 




Phase 


MAA.001.00 


Phase 1 


MAA. 007. 00 


Phase lA 


MAA. 008. 00 


Phase 2 


MAA. 012. 00 


Phase 2A 


MAA. 013. 00 


Phase 3 


MAA. 010. 00 


Phase 4 


MAA. 011.00 


Phase 5 


MAA. 015. 00 


Phase 6 


MAA. 016. 00 


Phase 7 


MAA. 017. 00 


Phase 7A 


MAA. 018. 00 


Phase 8 


MAA. 019. 00 


Phase 8A 


MAA. 020. 00 


Phase 9 


MAA. 014. 00 


Phase 10 


MAA. 003. 00 


Phase lOA 


MAA. 009. 00 


Phase 11 


MAA. 004. 00 


Phase 12 


MAA. 005. 00 


Error Message Phase 


MAA. 006. 00 


Punch Conversion 




Phase 


MAA. 021. 00 


Read Conversion Phase 


MAA. 002. 00 


Supervisor 




Monitor Control Record 




Analyzer 


NAA. 001. 00 


System Core Dump 




Program 


NAA. 002.00 


Auxiliary Supervisor 


NAA. 003. 00 


Core Load Builder 


OAA. 001. 00 
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Disk Monitor 
System Component 



Microfiche 
Identification 



System Device Subroutines PAA. 001. 00 



Standard Precision 




Arithmetic and Function 




Subroutines 




FADD 


RAA. 001.00 


FAXI 


RAA. 001. 00 


FDIV 


RAA. 001. 00 


FDVR 


RAA. 001. 00 


FGETP 


RAA. 001. 00 


FLD 


RAA. 002.00 


FMPY 


RAA. 002. 00 


FSBR 


RAA. 002. 00 


FABS 


RAA. 002. 00 


FATN 


RAA. 002. 00 


FAXB 


RAA. 003. 00 


FEXP 


RAA. 003.00 


FLN 


RAA. 003. 00 


FSIGN 


RAA. 003. 00 


FSIN 


RAA. 003. 00 


FSQR 


RAA. 004. 00 


FTANH 


RAA. 004. 00 


SFAR 


RAA. 004. 00 


SFIF 


RAA. 004. 00 


Extended Precision 




Arithmetic and Function 




Subroutines 




EADD 


SAA.001.00 


EAXI 


SAA. 001. 00 


EDIV 


SAA.001.00 


EDVR 


SAA.001.00 


EGETP 


SAA.001.00 


ELD 


SAA. 002. 00 


EMPY 


SAA. 002. 00 


ESBR 


SAA. 002. 00 


EABS 


SAA. 002. 00 


EATN 


SAA. 002. 00 


EAXB 


SAA. 003. 00 


EEXP 


SAA. 003. 00 


ELN 


SAA. 003. 00 


ESIGN 


SAA. 003. 00 


ESIN 


SAA. 003.00 


ESQR 


SAA. 004. 00 


ETANH 


SAA. 004. 00 


SEAR 


SAA. 004. 00 


SEIF 


SAA. 004. 00 


FARC 


SAA. 004. 00 



Disk Monitor 


Microfiche 


System Component 


Identification 


FDCI 


SAA. 005. 00 


FLOAT 


SAA. 005. 00 


IFK 


SAA. 005.00 


NORM 


SAA. 005.00 


SNR 


SAA. 005.00 


XDD 


SAA. 006. 00 


XMD 


SAA. 006. 00 


XMDS 


SAA. 006. 00 


FORTRAN Common 




Subroutines (No 




Precision) 




FBTD 


TAA. 001. 00 


lABS 


TAA. 001. 00 


XSQR 


TAA. 001.00 


PAUSE 


TAA. 001. 00 


STOP 


TAA. 002. 00 


SUBIN 


TAA. 002, 00 


SUBSC 


TAA. 002. 00 


TTEST 


TAA. 002. 00 


DATSW 


TAA. 002. 00 


DVCHK 


TAA. 003. 00 


FCTST 


TAA. 003, 00 


ISIGN 


TAA. 003. 00 


OVERF 


TAA. 003. 00 


PDUMP 


TAA. 003. 00 


SLITE 


TAA. 004. 00 


TSTOP 


TAA. 004, 00 


TSTRT 


TAA. 004. 00 


FORTRAN Trace 




Subroutines 




SGOTO 


TAA. 009. 00 


SIAR 


TAA. 009. 00 


SIIF 


TAA. 009. 00 


FORTRAN Conversion 




Subroutines and Tables 




EBCTB 


TAA. 006. 00 


GETAD 


TAA. 006, 00 


HOLEZ 


TAA. 007.00 


HOLTB 


TAA. 007. 00 


FORTRAN I/O Subroutines 




SDFIO 


TAA, 004, 00 


SDFND 


TAA. 005. 00 


SFIO 


TAA. 005.00 


UFIO 


TAA. 006. 00 
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Disk Monitor 


Microfiche 


System Component 


Identification 


FORTRAN Device 




Subroutines 




CARDZ 


TAA. 006. 00 


PAPTZ 


TAA. 007. 00 


PNCHZ 


TAA. 007. 00 


PRNTZ 


TAA. 008. 00 


PRNZ 


TAA. 008. 00 


READZ 


TAA. 008. 00 


TYPEZ 


TAA. 008. 00 


WRTYZ 


TAA. 008. 00 


Interrupt Level 




Subroutines (ILSs) 




ILSOO 


UAA. 001. 00 


ILSOl 


UAA. 001. 00 


ILS02 


UAA. 001. 00 


ILS03 


UAA. 001. 00 


ILS04 


UAA. 001. 00 


Interrupt Service 




Subroutines (ISSs) 




CARDO 


UAA. 002. 00 


CARDl 


UAA. 002. 00 


OMPRl 


UAA. 002. 00 


PAPTl 


UAA. 002. 00 


PAPTN 


UAA. 002. 00 


PAPTX 


UAA. 003. 00 


PLOTl 


UAA. 003. 00 


PNCHO 


UAA. 003. 00 


PNCHl 


UAA. 003, 00 


PRNTl 


UAA. 004. 00 


PRNT3 


UAA. 004. 00 


READO 


UAA. 004. 00 


READl 


UAA. 004. 00 


TYPEO 


UAA. 005. 00 


WRTYO 


UAA. 005. 00 


Conversion Subroutines 




and Tables 




EBPRT 


UAA. 005. 00 


HOLEB 


UAA. 005. 00 


HOLPR 


UAA. 006. 00 


HXBIN 


UAA. 006. 00 


PAPEB 


UAA. 006. 00 


PAPHL 


UAA. 006. 00 


PAPPR 


UAA. 006. 00 


SPEED 


UAA. 007. 00 



Disk Monitor 


Microfiche 


System Component 


Identification 


ZIPCO 


UAA. 007. 00 


BIDEC 


UAA. 007. 00 


BINDC 


UAA. 007. 00 


BINHX 


UAA. 007. 00 


CPEBC 


UAA. 008. 00 


CPHOL 


UAA. 008. 00 


CPPT3 


UAA. 008. 00 


DCBIN 


UAA. 008. 00 


DECBI 


UAA. 008. 00 


EBCCP 


UAA. 009. 00 


EBHOL 


UAA. 009. 00 


EBP A 


UAA. 009. 00 


EBPT3 


UAA. 009. 00 


HLEBC 


UAA. 009. 00 


HLPT3 


UAA. 010. 00 


HOLCP 


UAA. 010. 00 


ROLL 


UAA. 010. 00 


PRTY 


UAA. 010. 00 


PT3CP 


UAA. 010. 00 


PT3EB 


UAA. Oil. 00 


PTHOL 


UAA. Oil. 00 


Utility Dump Subroutines 




DMP80 


UAA. Oil. 00 


DMTDO 


UAA. Oil. 00 


DMPDl 


UAA. 012. 00 


System Subroutines 




SYSUP 


UAA. 013. 00 


FLIPR 


UAA. 012. 00 


Mainline Programs 




ADRWS 


UAA. 014. 00 


COPY 


UAA. 014. 00 


DISC 


UAA. 015. 00 


DLCIB 


UAA. 016. 00 


DSLET 


UAA. 016. 00 


IDENT 


UAA. 017. 00 


ID 


UAA. 017. 00 


MODIF 


UAA. 018. 00 


PTUTL 


UAA. 019. 00 


CALPR 


UAA. 019. 00 


FSLEN 


UAA. 019. 00 


RDREC 


UAA. 020. 00 


Plotter Subroutines 




ECHAR 


VAA.001.00 
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Disk Monitor 


Microfiche 


System Component 


Identification 


ECHKX 


VAA. 001. 00 


EGRID 


VAA. 001.00 


EPLOT 


VAA. 001. 00 


ERULE 


VAA. 002. 00 


FCHAR 


VAA. 002. 00 


FCHRX 


VAA. 002. 00 


FGRID 


VAA. 002. 00 


FPL or 


VAA. 003. 00 


FRULE 


VAA. 003. 00 


PLOTI 


VAA. 003. 00 


PLOTX 


VAA. 003. 00 


POINT 


VAA. 003. 00 


SCALE 


VAA. 004, 00 


SCALF 


VAA. 004. 00 


XYPLT 


VAA. 004. 00 


SCA Interrupt Service 




Subroutines (ISSs), 




Conversion Subroutine s , 




and Conversion Tables 




EBC48 


WAA. 001. 00 


HOL48 


WAA. 001. 00 


HOLCA 


WAA. 001.00 


HXCV 


WAA. 001.00 



Disk Monitor 


Microfiche 


System Component 


Identification 


PRNT2 


WAA. 002. 00 


SCATl 


WAA. 003. 00 


STRTB 


WAA. 004. 00 


Stand-alone Programs 




Cold Start Card 


ZAA. 001.00 


Console Printer 




Core Dump 




(Paper Tape) 


ZAA.003.00 


Console Printer 




Core Dump 




(Card) 


ZAA. 002.00 


DCIP 


ZAA. 004. 00 


1132/1403 Printer 




Core Dump 




(Paper Tape) 




Phase 1 


ZAA. 007.00 


Phase 2 


ZAA. 008. 00 


1132/1403 Printer 




Core Dump (Card) 




Phase 1 


ZAA. 005. 00 


Phase 2 


ZAA. 006. 00 


PTREP 


ZAA. 009. 00 


UCART 


ZAA. 010. 00 
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APPENDIX E: DISK DATA FORMATS 



FORTRAN Integer Data; 

A FORTRAN integer can always be contained in one 
word (16 bits) regardless of the amount of disk stor- 
age allocated for the integer. If the *ONE WORD 
INTEGERS control card is used in the job which 
creates the FORTRAN disk data file, one data word 
is allocated for each integer; otherwise, disk stor- 
age allocation for each integer is that specified for 
real variables (2 or 3 words) . 

Example; The integer field +32767 appears on a 
disk file beginning * at record word n as described 
below. 

With one word integers and standard or extended 
precision specified: 



Record 

Word: n 

Content! /7FFF 



With standard precision only specified; 

Record 

Words n-1 " 

Contents /7FFF /XXXX 

where /XXXX represents a fill word (meaningless 

data). 

With extended precision only specified; 



Record 

Word: n-2 

Content! /7FFF 



n-1 
/XXXX 



/XXXX 

where /XXXX represents a fill word. 

♦FORTRAN disk file build proceeds backwards from 
the 320th word of each disk sector. 



Two Word Integer Data: 

A two -word integer is an integer which can be repre- 
sented in two or less words (32 bits). Two words of 
disk storage are allocated for each two-word integer. 
One word integers may appear in the same disk data 
file as two -word integers, but extended precision 
real variables may not be used in a file which con- 
tains two -word integers. 

Example : Thetwo-word integer field +500 appears 
on a disk file beginning at record word n as 



Record 

Words 

Contents 



n-1 n 

/OOOO /01F4 



FORTRAN REAL DATA; 

A complete description of FORTRAN real data ap- 
pears in the IBM 1130 Subroutine Library , Form 
C26-5929. 



FORTRAN A-FORMATTED DATA (integer and real): 
This data format is described in the IBM 1130/1800 
Basic FORTRAN IV Language, Form C26-3715. 



Commercial Subroutine Package (CSP) Al FORMAT: 

CSP Al format consists of 1 character per 16 -bit 
word, left -justified: 



bits {j- 



character blank 

_L 



7S- 



Tg 



The righthand 8 bit always contain the blank character 
/40. This blank is inserted by the CSP subroutines. 



CSP A2 FORMAT: 



CSP A2 format consists of two characters per word: 



bits 



character 



character 



78 



15 



CSP A3 FORMAT 

CSP A3 format represents 3 characters as a one- word 

integer. The user supplies a 40 character translation 

table and the A3 integer is formed from the relative 

(to card column 40) positions of each character in this 

table. 

A3 integer = (N1-20)*1600+(N2*40)+N3 

where Nl , N2 and N3 are the relative translation 
table positions of the first, second and third chara- 
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cters respectively. 



CSP D4 FORMAT; 



CSP Dl FORMAT : 

CSP Dl format consists of one digit per word, right- 
justified, representation as described below: 



00000000 



0000 digit 



bits 



78 



15 



Example: The six -digit field 001968 appears on 
a disk file beginning at record word n as follows: 



Record 

Word: 

Content: 



n-5 
/0008 



n-4 
/0006 



n-3 
/0009 



11-2 
/OOOl 



n-1 
/OOOO 



n 
/OOOO 



The sign of the field is reflected in the low order 
(digit) word of the field, this word being the ones' 
complement of the digit if the field is negative. 



CSP IM: format consists in general of four decimal 
digits per word, with each digit occupying four bits 
of the word. However, since the low order digit 
carries the sign of the field, it is handled separately, 
and is placed by itself in the last word of the D4 
field. Any 4 -bit blocks not used in the field are 
filled with /F, This format is best Illustrated with 
examples. 

Example 1 ; The five -digit field +12345 appears on 
a disk file beginning at record word n as follows: 

Record 

Wordj n-1 n 

Content: /0005 /1 2 34 



Example 2: The six -digit field +123456 appears on 
a disk file beginning at record word n as follows: 



Record 

Word: n-2 

Content; /0006 



n-1 
/5FFF 



/1 2 34 



Example : The six -digit field -001968 appears on 
a disk file beginning at record word n as follows: 



/OOOO 



Record 












Word: 


n-5 


n-4 


n-3 


n-2 


n-1 


Content: 


/FFF7 


/0006 


/0009 


/OOOl 


/OOOO 



Example 3: The seven-digit field -1234567 appears 
on a disk file beginning at record word n as follows: 



/1234 



Record 






Word: 


n-2 


n-1 


Content: 


/FFE8 


/56FF 
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APPENDIX F: DIAGNOSTIC CAPABILITIES 



All DFCNV error messages and their identifying 
numbers (listed below) are printed on the principal 
printer. All diagnostics are printed before data 



conversion begins. Any diagnostic except warning 
messages (indicated below) causes program ter- 
mination. 



4) 



No 



FOl 



Message 



INVALID DESCRIP- 
TION CARD FIELD- 
COL. XX 



F02 FILE NAME NOT 
IN LETALET-Y 



F03 



F04 



F05 



F06 



FILE SIZE INVALID- 
Y 

INVALID FIELD SPE 
CIFICATION SYN- 
TAX-COL. XX 



CSP A3 TABLE 
MISSING 

INVALID CARD 
SEQUENCE 



Cause 



1 . Numeric field a« card column XX oufside 
]j allowable field range. 

2. Unrecognizable character in field at 
card column XX. 

1 . LET/FLET entry not found for file named 



.^ on File Description card. 
' 2. File name given on File 



! Description card 



gn 
invalid. 
Y=l, input file error 
=0, output file error 



File size calculated from File Description 
dato exceeds actual file size. 

1 . Numeric field of specification starting 
at card column XX outiide allowable field 
range . 

2. Unrecognizable ijharacter in field of 
g, specif ication starting at card column XX. 

'3. Embedded or intervening blanks on 
Field Specification card. 
4. J-field type specification detected 
starting at card column' XX when extended 
precision was specified. 



No A (col 72) cord precedes/* card when 
F-field specified. 



1. Unrecognizable card precedes /« card 
y. (column 72 not D, S, or A). 
^\ 2. Multiple File Description cards read. 



/• 



Multiple , . 

File Description card out of order. 
No Field S ecification card precedes 
card. 



No. 


Message 


Cause 


5)f07 

FOB 
F09 
F10 


TRUNCATION 
OCCURS AT COL. 
XXX. 

CARD INPUT 
INVALID 

OUTPUT RECORD 
LENGTH INVALID 

FIELD OUT OF 
RANGE AT COL. 
XXX OF RECORb 
YYYYY 


High order truncation occurs in output field 
at column XXX. 

Cord input is specified when principal input 
device is console keyboard. 

Sum of individual field lengths exceisds 
specified record length for output, 

2) 

RPG real number field starting at column 
XXX has been set to zeroes or nines in 
record YYYYY. 



1) Program termination immediate. 

2) Warning only. 

3J No columns indication. 

4) It is noted that certain invalid field specification formats and/or imralid 
continuation marks (comma or blank allowable) which produce the F04 
error message offset the "next" specification checked for validity. That 
is, the field specification immediately following is performed and no com- 
pression is built. 

Example! The Field Specification card 
Col. 1 72 

6-l6,l-l5,X4 S 

Produces the following error message, F04 INVALID FIELD SPECIFICA- 
lON SYNTAX -col. 01. 
The invalid specification 1-15 will not be diagnosed until the specification 
6-16 is corrected to read 6-16.0. 

5) Extraneous truncation warnings may result from certain invalid field 
specifications. 
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APPENDIX G: FIELD TYPE COMPRESSIONS 
Compression for I-, J- and R-field type: Compression for X-field type: 

Word Contents 

Word Contents 

1 Address of I-, J- or R-conversion subroutine. 

2 The displacement in characters to the start of the i Address of X-conversion subroutine 
RPG output field in binary (equivalent to the 2 Number of words to be bypassed 
specified RPG column -1 ). 

3 bit 0-7 Precision (field length) of output field in binary 

bit 8 1 if output field is to be packed, if not. 

bits 9-1 5 Scale of output field in binary 



Compression for B- and C-field type: 

Word Contents 

1 Address of B (C) - conversion subroutine 

2 The displacement in characters to the start of the 
RPG output field in binary (equivalent to the spe- 
cified RPG column -1 ). 

3 bits 0-7 Precision of output field in binary., 
bits 8-9 Number of words per entry. 

bits 10-15 Number of characters per entry. 



Compression for D- and E -field t3T)e: 



Word Contents 

1 Address of D- or E-conversion subroutine 

2 The displacement in characters to the start of the 
RPG output field in binary (equivalent to the spe- 
cified RPG column -1 ). 

3 bits 0-7 Precision of output field in binary 

bit 8 1 if output field is to be packed, if not 

bits 9-1 5 Scale of output field in binary 

4 bits 0-7 CSP precision in binary 
bits 8-1 5 CSP scale in binary 



Compression for F -field type: 

Word Contents 

1 Address of F-conversion subroutine 

2 The displacement in characters to the start of the 
RPG output field in binary (equivalent to the spe- 
cified RPG column -1 ) 

3 Hexadecimal constant /0341 

4 Number of characters to be converted 
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Procedures 

Core dump 115 

Core location 115 
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